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THE INFORMATION IN THIS STATEMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRIBED IN THIS 
DOCUMENT WILL BE SUBJECT TO TERMS AND CONDITIONS TO 
ANNOUNCED IN SOME FUTURE DATE BY DIGITAL EQUIPMENT 
CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 
SUPPLIED BY DEC. 


THIS SOFTWARE JS FURNISHED TO PURCHASER UNDER A LICENSE 
TO USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OF DEC*S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
Ayal rg EXCEPT AS MAY OTHERWISE BY PROVIDED IN WRITING 
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1. ABSTRACT 


THIS TEST IS TO BE USED AS A CARD READER DIAGNOSTIC FOR THE 
LSI=11 WITH THE CMQ11-K CARD READER. IT TESTS ALL LOGIC FUNCTIONS , 
OF THE CARD READER, AND INCLUDES AN EXERCISER FOR PUNCH ALPHANUMERIC, : . 
PUNCH BINARY, AND MARKSENSE BINARY TEST DECKS. A SEPARATE STARTING ADDRESS | | 
ALLOWS THE ERROR SENSING FUNCTIONS OF THE READER TO BE CHECKED. | | 
ANOTHER STARTING ADDRESS TESTS SPECIAL DECKS WHICH HAVE ALL | 
COLUMNS AND CARDS PUNCHED OR MARKED IDENTICALLY, TO AID IN | 
DIAGNOSING SPECIAL PROBLEMS. | 


paseo 

| 

| 

| 

é« REQUIREMENTS 

2.1 EQUIPMENT | 
LSI-11 STANDARD COMPUTER | 
CR11 CARD CONTROLLER | | 
MARKSENSE CARD READER | | 

2.2 TEST DECKS | | 
MAINDEC-11-DZCMF-CA ALPHANUMERIC TEST DECK | 
MAINDEC-11-DZCMF-CB BINARY TEST DECK | | 
MAINDEC-11=DZCMF-CO1 80-COLUMN MARKSENSE TEST DECK | 
MAINDEC-11-DZCMF-CO2 40-COLUMN MARKSENSE TEST DECK | : | 
SPARE CARDS FOR THE ERROR FUNCTION TEST | | 

2.3 STORAGE 
THE ROUTINE USES MEMORY 0 TO 16202. 

_- LOADING PROCEDURE 

' 


PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 
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‘ STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 


BASIC SWITCH REGISTER SETTINGS ARE: 


SW15=1 ==-HALT ON ERROR 

SW14=1 ==-SCOPE LOOP 

SW13=1 ==-INHIBIT PRINT OUT 

SW12=1 ==-INHIBIT TRACE TRAPPING 

SW11=1 =--INHIBIT SUB-PROGRAM ITERATION 


(NOTE THAT IF SWil IS SET, THE CARD COUNT 
WILL BE ALTERED, CAUSING FAILURES IN THE | 
DATA TEST SECTION.) ) 
SwO7=1 =--LOOP THRU THE INSTRUCTION TEST PORTION | 
(NOTE THAT THE PROGRAM MAY HANG LEGITIMATELY 
WHEN THE INPUT HOPPER GOES EMPTY IF SW7 IS SET) 
SWO6=1 ==-RETURN TO THE BEGINNING OF THE INSTRUCTION TEST 
WHEN CONTINUING FROM ONE DECK TO ANOTHER 
SWO5=1 ==--HALT BETWEEN TEST DECKS 
(SEE 5.2.1 FOR EXPLANATION OF SW5=0) 
SWO4=1 =--RUN THE PUNCHED BINARY TEST DECK (UNLESS SWO3 IS SET) 
SWO2=1 =---40 COLUMN CARD DECK 
SWO2=0 OR DOWN-80 COLUMN CARD DECK 
S'03=1 =---RUN THE MARKSENSE BINARY TEST DECK 


| 

| 

Be COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A SOFTWARE 
SWITCH REGISTER LOCATION IN MEMORY CALLED ‘’SWREG’’ (LOCATION 176). 
THIS LOCATION CAN BE CHANGED TO REFLECT THE DESIRED SWITCH SETTINGS 
BY TYPING CONTROL G. 


4.2 STARTING ADDRESSES 


200 = INSTRUCTION AND DATA TEST 

210 = PICK SUBTEST LOOP | 
220 = ERROR FUNCTION TEST | 
240 = SINGLE SUBTEST LOOP | 
250 = READ SINGLE DATA PATTERN TEST 








CVCMAA, 


SRC 


4.3 
4.3.1 


4.3.2 


4.3.3 


4.3.4 
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PROGRAM AND/OR OPERATOR ACTION 
INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 


LOAD PROGRAM INTO MEMORY. 
LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER. 
PRESS RESET ON THE CARD READER, WAl FOR RESET LIGHT 
THE PROGRAM WILL PRINT THE CURRENT opp onat OF THE SOF TWARE 
SWITCH REGISTER AND WILL WAIT FOR NEW INP 
SET THE SOFTWARE SWITCH REGISTER TO DESIRED. SETTING. 
LOAD ADDRESS. 
meet ttaat (SEE 4.1)=--ALL DOWN FOR WORST CASE, ALPHA TEST DECK. 
WHEN THE INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING 
FOR AN INTERRUPT FROM THE CARD READER. LOAD ONE OR MORE 
TEST “DECKS INTO THE INPUT HOPPER. PRESSING ‘RESET’ 
ON THE CARD READER SHOULD CAUSE PROGRAM EXECUTION 


TO RESUME. 
THIS sige > gees IS NECESSARY TO RUN THE FULL TEST ON THE CARD 


PICK SUBTEST LOOP (SA 210) 


LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER. 
PRESS ‘RESET’ ON THE CARD READER, WAIT FOR THE RESET LIGHT. 
LOAD THE STARTING ADDRESS. 

PRESS START 

AT THE HALT = LOAD SWITCH REGISTER WITH MOTION DELAY SIZE. 


ERROR FUNCTION TEST (SA 220) 


LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER 

PRESS “'RESET’’ ON THE CARD READER, WAIT FOR RESET LIGHT. 

on Re B 2 pails ADDRESS, THEN SET THE DESIRED SWITCH OPTIONS. 
FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


SINGLE SUBTEST LOOP (SA 240) 


LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER. 

PRESS "RESET’’ ON THE CARD READER, WAIT FOR RESET LIGHT. 

LOAD THE STARTING ADDRESS. 

PRESS START. 

AT THE 1ST HALT, LOAD THE STARTING ADDRESS OF THE DESIRED TEST 
(ADDRESS. ‘f THE SCOPE INSTRUCTION AT THE BEGINNING OF 

PRESS CONTINUE. 

AT THE 2ND HALT SET THE SWITCH REGISTER OPTIONS (BIT 11 MUST=0). 

PRESS CONTINUE. 
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4.3.5 


5.1.17 


521.4 
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SINGLE DATA PATTERN TEST (SA 250) 


A SPECIAL DECK (7 OR MORE CARDS) MUST BE PUNCHED OR MARKED 10 RUN 
THIS TEST. ANY DATA PATTERN MAY BE USED, BUT IT MUST 
BE IDENTICAL IN ALL +f COLUMNS OF ALL THE CARDS (I.E. 
ONLY ONE PIECE OF DATA) 

LOAD THIS PREPARED DECK INTO THE INPUT HOPPER. 

PRESS CARD READER ‘RESET’, WAIT FOR RESET LIGHT. 

LOAD SA 250. 

PRESS START 

AT THE INITIAL HALT SET THE CARD IMAGE OF THE DATA PATTERN USED 
IN SW11-Sw00. 

PRESS CONTINUE. 

WHEN THE CARD READER RUNS OUT OF CARDS IT WILL RING THE BELL. 

RELOADING THE DECK AND PRESSING ‘'RESET'’ ON 
THE CARD READER WILL CONTINUE THE TEST. 


OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

AT SA 200 CINSTRUCTION AND DATA RELIABILITY TES?) 
SEE 4.1 

AT SA 210 (PICK SUBTEST LOOP) 


AT THE HALT - LOAD THE DELAY BETWEEN CARD 
MOTION IN THE SWITCH REGISTER. 


AT SA 220 (ERROR FUNCTION TEST FOR CMQ11-k) 


SW14=1 TO LOOP THRU aoe CURRENT SUBTEST 
SW15=1 TO HALT ON ERRO 


AT SA 240 (SINGLE SUBTEST LOOP) 

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST 

2ND HALT - SET SR OPTIONS (BIT 11 MUST=0) 

SEE 4.1 FOR SR OPTIONS 

NOTE THAT T-BIT IS NOT SET WHEN USING THIS STARTING POINT. 
AT SA 250 (SINGLE DATA PATTERN TEST) 


AT THE HALT=LOAD THE CARD=IMAGE OF THE DATA PATTERN IN SW11-SWOO. 
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SUBROUTINE ABSTRACTS 
BEGIN SA 209 
THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY THE DATA 


RELIABILITY TESTS ON THE REMAINING CARDS IN THE FIRST TEST DECK. 


AT THE END OF THE DECK THE BELL WILL RING. IF SW5=1, THE 
PROGRAM WILL PRINT THE CURRENT CONTENTS OF THE SOFTWARE 
SWITCH REGISTER AND WILL WAIT FOR THE NEW INPUT.IF YOU DO 
NOT DESIRE 10 CHANGE THE CONTENTS OF THE SOFTWARE SWITCH 
REGISTER,HIT CARRIAGE RETURN TO CONTINUE. 

IF SW5=0,PROGRAM ACTION DEPENDS ON THE NUMBER OF 
TEST DECKS LOADED.IF THERE ARE STILL CARDS IN THE INPUT HOPPER 
THE PROGRAM WILL RUN THE DATA RELIABILITY TEST ON THE ENTIRE 
DECK. IF THE INPUT HOPPER IS EMPTY AT THE END OF THESE TESTS, 
IT WAITS FOR THE CARD READER TO BE PUT BACK ON LINE.FURTHER 
CHECKS ARE MADE OF THE OFF-LINE TO ON-LINE OPERATIONS,AND 
THEN ba 3 DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK 
IF SWS=1,HITTING CARRIAGE RETURN WILL RESUME PROGRAM OPERATION 


AFTER PRINTING THE CURRENT CONTENTS OF SOFTWARE SWITCH REGISTER. 


SCOPE 


THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE 
INSTRUCTION SECTION. IT RECORDS THE STARTING ADDRESS OF EACH 
SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS REQUESTED, 
IT WILL JUMP TO THE START OF THE SUBTEST THAT THE SCOPE LOOP 

IS REQUESTED FOR. IF SCOPE LOOP IS NOT REQUESTED, THERE WILL 
BE 1 ITERATION ON THAT SUBTEST BEFORE THE NEXT SUBTEST 

IS ENTERED. SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBIESTS. 


HLT 


THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME 
OF FAILURE, AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER. 
NOTE THAT THE LOCATION COUNTER WILL BE THE ADDRESS OF THE 


SEQ 0006 
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5.2.4 


5.2.5 


5.2.6 


Se 


5.2.8 
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TTRAP 


THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST 
LOOP OF THE PROGRAM. THE TRACE BIT WILL BE SET ON ALTERNATE 

LOOPS OF THE INSTRUCTION AND DATA TEST UNLESS SWi2 IS SET. * 

THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS AN “RTI (OR RIT") WHICH 
RETURNS TO THE INTERRUPTED SEQUENCE. THIS CONTINUES UNTIL THE 

END OF THE PROGRAM LOOP IS REACHED. 


TRAPCATCHER 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND 
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY. 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE 
NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT (000000). 
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP 
LOCATION PLUS TWO. 


IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE REGISTER 
SIX. IT WILL CONTAIN THE CURRENT STACK ADDRESS. THE CONTENTS 
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOCATION 
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 


ERCM11 (ERROR FUNCTION TEST) 


THIS TEST CHECKS OPERATION OF THE VARIOUS ERROR S*NSING FEATURES 
OF THE MARKSENSE CARD READER. CARD READER OFF-Lini, INPUT 
HOPPER EMPTY, AND OUTPUT STACKER FULL ARE CHECKED. 


TESTX (SINGLE TEST LOOP) 


THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY FOR 
SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTION EXISTS, 
IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO 
LOOP. IN SOME CASES (SUCH AS WITH INTERMITTENT FAILURES) THAT'S 
NOT EASY TO DO. THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS 
OF ANY TEST FROM TESTO THRU TEST24 AND TESTA THRU TESTG AT THE 
HALT AND THEN GO DIRECTLY TO THAT TEST. 


CKSAME (SINGLE DATA PATTERN TEST) 


THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 

DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER ADJUSTMENTS. 

IT CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR MARKED 
IDENTICALLY (AND ALL CARDS MUST BE IDENTICAL), CHECKING THE 

DATA AGAINST A PATTERN SET UP ON THE SWITCHES INITIALLY. ANY 

ERRORS ARE PRINTED OUT, ALONG WITH A COUNT OF THE TOTAL NUMBER 

OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE 
OCCURRED SINCE THE TEST WAS STARTED. 


SEQ 0007 


a ee ee er ee ee ee em em me re ee sm et eee ee ew ee ee — ——-— - —— mee ae ee -_- 





3.2.9 


- = ee = eee ee 


’ 
| e 
boat 


Dodod 


Py 
| (MQ11=K CARD READER TEST YM-7110A=AA MACY11 30A(1052) 04-AUG=81 09:08 PAGE 8 
CVCMAA,. SRC 07+JUL=81 09:06 


DELAY (PICK SUBTEST LOOP) 


THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF 
DIFFICULT DICK PROBLEMS AND FACILITATE REPAIR. 
1T CONTINUOUSLY MOVES CARDS THRU THE pr 

READER AT A RATE DETERMINED BY THE SWITCH 
REGISTER VALUE. NIETHER DATA OR STATUS REGISTER 
ARE CHECKED FOR ERRORS. THE PROGRAM WILL 
CONTINUALLY LOOP UNTIL STOPPED BY THE OPERATOR 


PROGRAM AND/OR OPERATOR ACTION 


LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS WORST 

CASE TESTING. A SINGLE ALPHANUMERIC DECK SHOULD BE RUN. THIS 
EXECUTES AN INSTRUCTION TEST FOLLOWED BY A DATA RELIABILITY TEST. 

AT THE END OF THE DECK CHECKS ARE MADE OF THE FLAG SETTINGS WHICH 
SHOULD BE AFFECTED, AND THE PROGRAM WAITS FOR AN INTERRUPT FROM 

THE READER COMING BACK ON-LINE. AT THE END OF THE FIRST DECK THE 
OPERATOR SHOULD LOAD ONE OR MORE DECKS IN THE INPUT HOPPER AND 

PRESS “RESET’’ ON THE CARD READER. IF THE CARD READER IS WORKING 
PROPERLY, THE BELL WILL RING ONCE WHEN ‘'RESET"’ IS PRESSED AND THE 
ENTIRE DECK WILL BE RUN THRU THE DATA RELIABILITY PORTION OF THE TEST. 
IF, AFTER READING 80 CARDS, THE INPUT HOPPER IS NOT EMPTY, THE PROGRAM 
WILL CONTINUE TO THE NEXT DECK. SWITCH OPTIONS MAY BE USED TO ALTER 
THIS FLOW 45 NOTED IN SECTION 4.1. 


TO GO DIRECTLY 7 A SINGLE SUBTEST AND RUN IT CONTINUOUSLY, USE 
SA 240. AT THE FIRST HALT, SET THE SWITCH REGISTER TO THE STARTING 
ADDRESS OF THE DESIRED SUBTEST (1.£. THE ADDRESS OF THE SCOPE IN- 


STRUCTION AT THE START OF THE TEST), AND CONTINUE. AT THE SECOND we: 


SET THE DESIRED SWITCH REGISTER OPTIONS AND CONTINUE (SW11 MUST BE = 
THE PROGRAM WILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST UNTIL 
SW11 IS SET OR THE PROCESSOR IS HALTED. 
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6.1.2 


6.2 
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ERRORS 
ERROR PRINTOUT 
STANDARD PRINTOUT 


PRINTOUTS ARE IN A TWO-WORD FORMAT. THE FIRST IS THE PC+2 OF 
THE DETECTED ERROR. THE SECOND IS THE CONTENTS OF THE PROCESSOR 
STATUS REGISTER WHEN THE ERROR WAS DETECTED. 


DATA ERROR PRINTOUT 


THE HEADING IS PRINTED OUT ONCE PER TEST DECK. THE COLUMNS HAVE 
THE FOLLOWING SIGNIFICANCE: 


DECK -EITHER PUNCHED ALPHANUMERIC, PUNCHED BINARY, 80 
COLUMN OR 40 COLUMN MARKSENSE DECK, DEPENDING ON 
SWITCHES 3 AND 4 

CARD -THE CARD NUMBER WHERE THE FAILURE OCCURRED <DEC.> 

COLUMN =THE COLUMN NUMBER WHERE THE FAILURE OCCURRED <DEC.> 

PATTERN -THE CORRECT CARD IMAGE DATA THAT SHOULD HAVE BEEN READ 

READ1 =-THE CARD IMAGE DATA IS READ TWICE. THIS IS WHAT WAS 
READ THE FIRST TIME FROM CRB1 

READ2 =THIS IS WHAT WAS IN CRB1 AFTER A BRIEF TIMING LOOP. IT 
SHOULD BE THE SAME AS THE PREVIOUS READING. 

CODED =THIS IS WHAT THE DATA SHOULD BE IN ENCODED FORM 

READ -THIS IS WHAT WAS READ BY ADDRESSING THE ENCODED BUFFER 


DATA — NOT TRACED TO CARD READER HARDWARE INCLUDE: 
SWO35 AND SWO4 NOT SET TO TYPE OF DECK USED 
8. CARD MISSING 
C. DAMAGED CARD 
D. ALPHA OR BINARY TEST DECK NOT IN PROPER SEQUENCE 


SINGLE DATA PATTERN PRINTOUT 


THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING WITH EACH 
ERROR PRINTOUT. THE COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 


COLUMN <THE COLUMN NUMBER WHERE THE FAILURE OCCURRED. 

READ] =-DATA IS READ TWICE. THIS IS THE ay READING. 

READ2 =THIS IS WHAT WAS READ THE SECOND TIME. 

CARDS =THE TOTAL NUMBER OF ore (IN OCTAL) THAT HAVE BEEN RUN 
SINCE THE TEST WAS STARTED. 

ERRORS -THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) SINCE 
THE TEST WAS STARTED. 


ERROR RECOVERY 


IN GENERAL, 4a FAILURES WILL PRINTOUT AN ERROR ty tee AND 
CONTINUE. IF THE “HALT ON ERROR’’ SWITCH IS SET, HITTING 
CONTINUE WILL RECOVER. IF THE PROGRAM HANGS UP IN A LOOP, THE 
ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED. IF 

A HALT OCCURS IN THE TRAP AND VECTOR AREA THE PROGRAM MUST BE 
RESTARTED. IF THE PROGRAM HALTS IN THE MAIN FLOW, CONSULT THE 
LISTING IF NO MESSAGE IS TYPED OUT. 
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f RESTRICTIONS 
NONE 


: 
| 
| 
| 
: 
7.2 OPERATIONAL RESTRICTIONS 

7.2.1 COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 
| 


IF A STANDARD TEST DECK IS NOT BEING USED, SwW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE TEST. 
THE PROCESSOR MAY HANG WHEN THE INPUT HOPPER GOES EMPTY, AND 
THIS IS NOT TO BE REGARDED AS A FAILURE. 


1¢ 
1¢ 
1 
1 
1 
1 
1 
1¢ 
1 
1 
1 
1 
1 
1 
1 
1( 


WHEN USING THE STANDARD TEST DECKS, THEY MUST BE IN 
GOOD CONDITION. 17 IS A GOOD IDEA TO LABEL THE CARDS 
DECKS AS SOON AS THE DECK IS RECEIVED. 


7.2.2 PICK SUBTEST LOOP (SA 210) 


SS SS ee ee i 


7.1 STARTING PROCEDURE | 
THE PICK SUBTEST LOOP REQUIRES SPARE CARDS 

OR TEST DECKS. THE TEST WILL INITILIZE 
CARD MOTION AT A RATE DETERIMED BY THE 


SWITCH REGISTER. 
7.2.53 ERROR FUNCTION TEST (SA 220) 
THE ERROR FUNCTION TEST REQUIRES SPARE CARDS. 
THE TEST WILL TYPE OUT A REQUEST FOR THE CARDS WHEN 
THEY ARE NEEDED. 
7.2.4 SINGLE DATA PATTERN TEST (SA 250) 
A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED. ALL COLUMNS 


OF ALL CARDS ARE PUNCHED OR MARKED IDENTICALLY, USING A DATA 
PATTERN WHICH WILL TEST THE PROBLEM BEING DIAGNOSED. 
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NOT APPLICABLE 
8.2 CARD DECK DESCRIPTION 
8.2.1 PUNCHED ALPHANUMERIC 


REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD 

IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF 80 COLUMNS 

ON THE CARD). THE FIRST VALUE GIVEN FOR A COLUMN IS THE CARD 
IMAGE OF THAT COLUMN, WHILE THE SECOND VALUE IS THE ENCODED FORM 
OF THE SAME PATTERN. EACH SUCCESSIVE CARD IN THE DECK 

USES THE SAME SEQUENCE OF CODES. 


8.2.2 PUNCHED BINARY 
REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD IN 
THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 COLUMNS OF 
THE CARD. AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE 
CARD HAS THE SAME SEQUENCE OF CODES. 

8.2.5 MARKSENSE BINARY DECK 


| 

| 

: 

| REFERENCE THE MARKSENSE DATA TABLE BEGINNING AT THE TAG MRKCD 
IN THE LISTING FOR THE CODES PRINTED FOR EACH OF THE 80 COLUMS 
| 

| 


Coo wm 
. ° 
a | 


ON THE CARD. THEY ARE PRINTED RATHER THAN PUNCHED 
AS WITH THE ALPHA AND BINARY DECKS EACH SUCCESSIVE CARD 
HAS THE SAME SEQUENCE OF CODES. 


8.3 SPECIAL NOTES 


IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD, 
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER. 


“"CARD DONE’’ FROM THE LAST CARD IN THE INPUT HOPPER WILL OCCUR 
BEFORE THE CARD READER GOES OFFO-LINE DUE TO “‘INPUT HOPPER EMPTY.°° 


CLEARING BIT 0 OF THE CRS AFTER SETTING IT CAN CAUSE THE READER 
TO NOT READ A CARD IF IT IS DONE RAPIDLY ENOUGH. 


8.4 TESTING CMQ11-K'S WITH NON-STANDARD ADDRESSES 


BY SUBSTITUTING INTO THE LOCATIONS KCRS KCRBI AND CRB2 

THE ADDRESSES OF THE CRS, CRB1, AND CRB2 OF A CARD READER ASSIGNED 
A NON-STANDARD ADDRESS, AND SUBSTITUTING ITS INTERRUPT VECTOR 
ADDRESS INTO INTVC, A CMQ11-K MAY BE TESTED AT ANY ADDRESS ASSIGNED 
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PROGRAM DESCRIFTION 


THIS SET OF TESTS IS DESIGNED TO CHECK ALL OPERATIONS OF THE CMQ11-K 
CARD READER, WITH THE NECESSARY wy thr THAT TIMING IN MOST 

CASES IS ONLY PARTIALLY TESTED. A SPECIAL TEST IS INCLUDED TO 

CHECK OUT THE ERROR FUNCTIONS OF THE CARD READE WHICH 

PRINTS OUT DIRECTIONS AS IT GOES ALONG. A TEST IS ALSO INCLUDED 

TO ISOLATE DIFFICULT DATA ERRORS USING A SPECIAL TEST DECK 

MADE UP BY THE USER. A TEST IS ALSO INCLUDED TO ISOLATE 


DIFFICULT PICK ERRORS USING ANY 

TEST DECK. IN THIS TES, THE SWITCH 
REGISTER IS USED AS A DELAY CONSTANT 

FOR INITILIZING CARD MOTION. NO DATA IS 
CHECKED IN THE THIS TEST. 

LISTING 

SEE FOLLOWING PAGES. 

FLOWCHART 


NOT APPLICABLE. 


ne ree ee ee me oe ee ee} ee ee ae me 


SEQ 0012 


a  —& ~ a 


_ _ ~~ ee ee ae ae | 


; 
: 
1 
1 
7" 
1 
1 
1 
1 
; 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1, 
1 
1 
1 
1 
1 
1 
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CMQT1=K CARD READER TEST YM=7110A=AA MACY11 30A(1052) 04-AUG=81 09:08 PAGE 13 


—FVCMAALSRE =—-07=JUL=81 09:06 SEQ 0013 
.ENABL ABS, AMA 
INLIST MD,MC,CND 
| Hl .LIST SEQ,BIN,LOC,ME 
| §8 TITLE CMQ11-kK CARD READER TEST YM=2110A=AA 
a :10 AUGUST 1976 
$45 =R. J. COLLINS 
546 : COPYRIGHT 1973,1974,1975,1976,1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
548 177570 HSR=177570 
549 000240 NOP=240 
550 104000 T=E 
551 104400 SCOPE =TRAP 
552 000006 TT=6 
553 000000 ADINT=%0 ;CONTAINS ADDRESS OF INTERRUPT VECTOR | 
554 000001 COUNT =%1 USED FOR TIMING, ETC. | 
555 000002 R2=%2 : SCRATCH ) 
556 000003 CRS=%3 :CONTAINS ADDRESS OF CARD READ STATUS REGISTER 
557 000004 CRB1=%4 :CONTAINS ADDRESS OF CARD READER BUFFER (12 BIT DATA) 
558 000005 R5=%5 > SCRATCH 
559 000006 SP=%6 >STACK POINTER 
560 000007 PC=%7 PROGRAM COUNTE 
562 ;LOAD TRAP CATCHER INTO LOCATIONS 0 THRU 377 
569 =LOAD TRAP VECTORS FOR HLT AND SCOPE ROUTINES 
570 000014 .=14 Ree 
571 000014 001052 TRTRAP 
572 000016 000340 340 
573 000030 =30 
574 000030 011122 PRINT 
575 000032 340 0 
576 000034 011376 SCOPEC ; 





eee eee ee ee ae ee ee eee _ ——— ee ee we a eee _ --- 


09:08 PAGE 14 CMQ1 
SEQ 0014 CVCM 


B 2 
MACY11 30A(1052) 04=AUG=81 


000174 


000000 
000000 


012706 
000137 


001000 


177560 
177562 
177564 


000 
000000 


000000 
177772 


CMQ11=K CARD READER TEST YM-2110A=AA 
eveN AA.SRC 07-JUL=81 09:06 


001000 


007142 


001000 
010134 


001000 
010222 


; LOAD soars | ADDRESS AREA 


DISPREG: 0 

SWREG: 0 
MOV H#STACK,SP 
JMP BEGIN 
MOV ASTACK,SP 
JMP DELAY 
MOV ASTACK,SP 
JMP ERCM11 
.=240 
MOV A#STACK,SP 
JMP TESTX 
MOV ASTACK,SP 
JMP CKSAME 


;NORMAL STARTING ADDRESS FOR CARD READER 

;PICK DELAY TEST | 
;STARTING ADDRESS FOR CMQ11-K ERROR FUNCTION TEST 
oY SINGLE SUBTEST LOOP WHICH CONTINUALLY RUNS 
;STARTING ADDRESS OF TEST TO READ A SINGLE DATA 


PATTERN CONTINUOUSLY 


; LOAD ar} AND GENERAL STORAGE 


STACK: 0 
-=.410 

INTFLG: O 

INTVC: 230 

KBCSR: 

TKS: 177560 

KBUF : 

TKB: 177562 

TCSR: 

TPS: 177564 

TDBR: 

TPB: 177566 


WORD SWR 
DDISP 
ASS: . D 
ASWREG: .WORD 0 
AENVM: 0 
AUTOB: WORD 0 
INTAG: WORD 0O 


ER 
DSWR=177570 
DDISP=177570 


TRTIRAP: RT] 
TRFLG: O 
PROC: 0 
ERFLG: 


0 
. PIRQ: 177772 





;STACK POINTER INITIALIZED TO POINT HERE 
;IN CASE OF STACK OVERFLOW 

:CONTAINS LEVEL THAT INTERRUPT IS FOUND AT 
:ADDRESS OF CARD READER INTERRUPT VECTOR 
;ADDRESS OF KEYBOARD CSR 
;ADDRESS OF KEYBOARD BUFFER 

;ADDRESS OF TELETYPE STATUS REGISTER 


ADDRESS OF TELETYPE DATA BUFFER 


SWITCH REGISTER 
F DISPLAY REG 


; SWITCH REG 
:ENVIRONMENT REGISTER 
:AUTOMATIC MODE INDICATOR 


; INTERRUPT MODE INDICATOR 
;HARDWARE SWITCH REGISTER 


;HARDWARE DISPLAY REGISTER 

;RETURN FROM TRACE LOOP (CHANGED TO RTT FOR AN 11/45) 
;TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL FLO 
: STORES + 3 ee STATUS WHEN TRACE TRAP MUST BE CLEARED 


:SET TO ZERO TO OUTPUT DATA ERROR HEADING 
[ADDRESS OF PDP 11/45 PIRQ REGISTER 


A mht otf oft 20k odd odd 22k odd 22d otk edd odd od edd oil od odd off oth al od ofl adi oi ail ali ali wil ali ait ali aia ai all ali all ALAA Lal 
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CMQ11-K CARD READER TEST YM=2110A=AA MACY11 30A(1052) 04=AUG-81 09:08 PAGE 15 CMQ1 
CVCMAA. SRC 07=JUL=81 09:06 SEQ 0015 CVC 


635 13 
636 > IN NITIALIZE CSR AND DBR POINTERS 13 
637 001064 012737 000001 011460 SETUP: MOV #1, 1TMAX :SET ITERATION MAXIMUM TO 1 ITERATION 13 
638 001072 013703 001026 MOV KCRS,CRS *SET UP REGISTER POINTERS 1: 
639 001076 013704 001030 MOV KCRB1,CRB1 13 
640 001102 013700 001014 MOV INTVC,ADINT :LOAD ADDRESS OF INTERRUPT VECTOR 13 
641 001106 005037 001012 CLR INTFLG : INITIALIZE INTERRUPT FLAG 13 
642 001112 005037 001054 CLR TRFLG ; INITIALIZE TRACE FLAG 1. 
643 001116 012737 001144 000010 MOV #TRET,a#10 >SETUP RESERVED ADDRESS TRAP RETURN 13 
644 001124 005037 000012 CLR a#i2 1 
645 001130 006705 6705 : EXTEND RS | : 1: 
646 001132 000240 NOP | 13 
647 001134 012737 000006 001052 MOV WRIT, @MTRTRAP =:IF NO TRAP THIS IS AN 11/45 OR 11/40 | 13 
648 001142 000404 Be .+12 | 1; 
649 001144 012737 000002 001052 TRET: MOV WRTI,@ATRTIRAP ;:IF TRAP, NOT AN 11/45 OR 11/40 13 
650 001152 022626 CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 1: 
651 001154 012737 000012 000010 MOV #12,a#10 | 13 
652 001162 004737 012520 JSR PC, SWRCK | iF 
653 001166 012737 000200 011246 MOV #200. PRIOR | 13 
654 001174 106437 011246 MIPS — PRIOR : 1: 
655 001200 012737 000050 006426 MOV #40. COSI ;SETUP FOR 40 OR 80 | 1: 
656 001206 012737 000047 006430 MOV #39., ; 13 
657 001214 032777 000004 005210 BIT #4, asr ;SR2=1 FOR 40 COL. | 1: 
658 001222 001006 BNE 1$ | 1: 
659 001224 062737 000050 006430 ADD #40.,COLM1 1 
660 001232 062737 000050 006426 ADD #40. ,COLSIZ 1: 
$61 001240 000207 1$: RTS 17 = RETURN 3 
663 001242 004737 001064 BEGIN: JSR %7,SETUP : INITIALIZE POINTERS AND FLAGS 1: 
664 001246 004737 011544 JSR —s- PC, CRLF ; 1: 
665 001252 004737 011702 JSR PC_GTSWR ; 1: 
666 001256 005037 006412 CLR DECCYC ;COUNTS # OF TIMES THROUGH DECK 1: 
667 001262 000443 BR TEST ;GO TO INSTRUCTION TES7S 1. 
668 001264 012746 000340 RESTRT: MOV #340,-(SP) ;PUSH STATUS ON STACK 1. 
669 001270 012746 001372 MOV #TEST,=(SP) ;PUSH PC ON STACK I. 
670 001274 000005 RESET 1: 
671 001276 004737 011544 JSR PC,CRLF : 1: 
672 001302 004737 011702 JSR PC, GTSWR ; V4 
673 001306 005037 006412 CLR DECCYC | 1 
674 001372 012737 000050 006426 MOV #40.,COLSIZ :SETUP FOR 40 OR 80 14 
675 001320 012737 000047 006430 MOV #39.,COLM1 : 1 
676 001326 032777 000004 005076 BIT #4,a5R ; 1 
677 001334 001006 | BNE 1$ 1 
678 001336 062737 000050 006426 ADD #40.,COLSIZ 1 
679 001344 062737 000050 006430 ADD #40. .COLM1 1 
680 001352 1$- 14 
681 001352 005737 001054 TST TRFLG : CHECK FLAG 1 
682 001356 100004 BPL PSSET -JF IT 1s POSITIVE, CLEAR T B17 1 
683 001360 032777 010000 005044 BIT #10000, asr : TRACE TRAPPING INHIBITED? 1 
684 001366 001000 E SSET *BRANCH IF YES 14 
685 001370 PSSET: RT] 1 
686 -TEST “FOR CORRECT INITIALIZATION OF STATUS REGISTER 1 
687 001372 012737 001402 011464 TEST: MOV #TESTIA, RETURN ;SETUP SCOPE LOOP RETURN ADDRESS 1 
688 001400 104400 TEST1: SCOPE *SO ALL TESTS START WITH SCOPE 14 
689 001402 004737 011022 TESTIA: JSR 417, (KBITS =CHECK FOR OFF-LINE SET it 
690 001406 004737 010722 JSR 17, CLRTR -STORE PROCESSOR STATUS AND CLEAR TRACE BIT | 1 


‘Geum a 


Bee ze 
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CMQ11-K CARD READER TEST 


CVCMAA. SRC 07-JUL-81 
691 001412 005007 
692 001414 369) 
693 001416 001376 
694 001420 Opt the 
695 001422 1376 
696 001424 005201 
697 001426 001376 
698 001430 013746 
699 001434 012746 
700 001440 000002 
701 001442 000005 
702 001444 005713 
703 001446 001401 
706 901450 104000 
705 
706 
707 +001452 052713 
708 001456 022713 
709 001462 001402 
710 001464 104000 
ap 001466 00041 
713 001470 005013 
714 001472 005713 
715 001474 001401 
716 001476 104000 
717 001500 032777 
718 0015 001402 
719 001510 13 
720 
721 001514 104400 
722 
7235 
724 001516 004737 
725 001522 004737 
726 001526 005213 
727 001530 032713 
728 001534 001401 
729 001536 104000 
730 001540 005001 
731 001542 005201 
732 001544 001376 
733 001546 005201 
734 001550 001376 
735 001552 005201 
736 001554 001376 
737 001556 005201 
738 001560 001376 
739 001562 013746 
740 001566 012746 
741 001572 2 
742 001574 032713 
743 001600 001002 
744 001602 104000 
SH 001604 406 


: 


09:06 


001056 
001442 


177776 
000102 


000010 
004276 


011022 
010722 


000001 


001056 
001574 


040000 


ee ee ee ee ee 


YM=7110A=AA 


004724 


TST1B: 


TST2A: 


SCOPE 

SHOULD CAUSE CARD DONE 
SHOULD ALWAYS atch AS BE 
JSR 27,CKBIT8 


mm a eee —_—= — oe —— eee 


D2 
MACY11 30A(1052) 04-AUG-81 09:08 PAGE 15-1 


CLR COUNT ; INITIALIZE COUNTER 
INC COUNT ;WAIT TO BE CERTAIN 
BNE Aa ; THAT ALL CARDS ARE 


INC COUNT ; THRU BEFORE ISSUING 
BNE .~2 : INIT 

INC COUNT 

BNE 


MOV PROC -(SP) 


:RESTORE PROCESSOR STATUS 
MOV #TST1B.=(SP) 


TI 
RESET ;SEND OUT INIT 

ST aCRS ;CHECK FOR STATUS REGISTER ALL ZERO 
BEQ +4 BRAN rare: H IF OK 


HLT ;STATUS REGISTER NOT CORRECTLY INITIALIZED 
;ONLY BITS 1 “yy OF THE STATUS REGISTER SHOULD BE ABLE TO BE SET TO ONE 


“AND READ BACK AS ON 
BIS #177776,aCRS  ;:SET ALL BITS BUT 0 
CMP #102,aCRS “ONLY BITS 1 AND 6 SHOULD BE SET 
BEQ +6 “BRANCH IF 

T “STATUS REGISTER DIDN'T CONTAIN 102 
BR TEST2 “BRANCH AFTER FAILURE 
; CLEARING STATUS REGISTER SHOULD CLEAR BITS 1 AND 6 


Q- 


aR AR BITS 1 AND 6 
TST aCRS ;CHECK FOR ALL BITS CLEAR 
BEQ TSTIC H IF OK 


: BRANCH 
HLT :BIT 1 AND/OR BIT 6 DIDN'T CLEAR 
BIT #10,aSR ; CHECK FOR MARK SENSE DECK 
BEQ TEST2 :CONTINUE LOGIC TESTS IF NOT M S DECK 
JMP DATMK ZOTHERWISE GO TO DATA TEST 


WITHIN 1 SECOND 

ING EQUAL TO ZERO 
;CHECK FOR OFF-LINE SET 

JSR 27, CLRIR 


INC acRs * STAR ART READING A 

BIT #1,aCRS > CHECK BIT 0 

BEQ +4 BRANCH IF NOT SET 
HLT ;BIT 0 READ AS A ONE 
CLR COUNT INITIALIZE COUNTER 
INC sWAIT 

INC COUNT 

BNE 72 

INC oe 

INC 


BNE 
MOV PROC ,~(SP) 


:RESTORE PROCESSOR STATUS 
MOV #TST2A,-(SP) 


RT] 

BIT #40000, aCRS ; CHECK CARD ery 

BNE CONT2 :CONTINUE IF SET 

HLT 7CARD DONE DIDN'T SET WITHIN 400 MS 

BR TESTS :NOTE THAT AST COULD BE DUE TO READ 
;NOT BEING RESET 


7STORE CURRENT Aa 35 * ae STATUS AND CLEAR TRACE BIT 


SEQ 0016 


onc 
<z 
“© 
z— 


— 
a et ee eet et ee el ee ee ee 
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CMQ11=K CARD READER TEST 
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CVCMAA. SRC 


001712 


001774 


052713 


104000 
104400 


004737 


104000 
104400 


001001 


040000 
040000 


011022 


001000 
049000 
001000 


040000 


007000 


010674 
140200 


140000 


140000 


040000 


004000 


YM-7110A=AA 


CONT2: 


TESTS: 


mm ee eee ee 


MACY11 30A(1052) 


SCOPE 


#40000,aCRS 
1 ‘aaetettis 
+ 


. « 
04-AUG-81 


09:08 PAGE 15=2 


;DATO TO STATUS REGISTER SHOULD CLEAR 
;CARD DONE 

;BRANCH IF IT DID 

;DATO DIDN'T CLEAR CARD DONE 


:BUSY (BIT 9) SHOULD BE SET BY READING A CAR’ 
“IT SHOULD REMAIN SET UNTIL CARD DONE SETS, WHICH SHOULD CLEAR IT 


LOOP3: 


DONE3: 


4g 


SCOPE 
A TIMING ERROR SHOULD OCCUR IF 


aCRS 
#1000,aCRS 
LOOPS 
TESTS 
#40000,aCRS 
DONE 3 
#1000,@ aCRS 
LOOPS 
#40000, aCRS 


TESTS 
#1000,aCRS 
TESTS 


;CHECK FOR OFF-LINE SET 
INITIALIZE STATUS REGISTER 


;BRANCH IF SET 


;READING A CARD DIDN'T SET BUSY 


;CHECK CARD DONE 

:BRANCH IF SET 

; CHECK BUSY 

:BRANCH IF STILL SET 

; CHECK CARD oret 

:GO TO NEXT TEST IF SET 

:BUSY CLEARED BEFORE CARD DONE SET 


; CHECK BUSY 
;GO ON TO NEXT TEST IF CLEAR 
;CARD DONE DIDN'T 


CLEAR BUSY 


DATA IS NOT READ AND NEW DATA COMES Se 


:A TIMING ERROR SHOULD SET THE SPECIAL CONDITION BIT WHEN CARD DONE OCC 


URS 
;COLUMN READY SHOULD BE CLEARED BY THE TIMING ERROR AND PREVENTED FROM RESETTING 


:BITS 11,14, AND 15 SHOULD BE CLEARED BY A DATO TO THE STATUS REGISTER 


LOOP4: 


LOOP4B: 


CK4: 


CONT4: 


COUNT 


aCRS 
#140200, aCRS 


LOOP4 
#140000, aCRS 
CK4 


COUNT 
aCRS 


LOOP4 
#140000, a@CRS 
CK4 

LOOP4B 
#40000, aces 
+6 

CONT4 

aCRS 

+4 

#4000, acCrS 
+4 


; INIT STATUS REGISTER 
s INITIALIZE COUNTER 


; INITIATE READ 
:WAIT FOR SPECIAL CONDITION, CARD DONE, 
:OR COLUMN READY 
:LOOP IF NONE OCCURRED 
; SPECIAL CONDITION OR CARD DONE? 
YES, BRANCH 
:NO, COUNT COLUMN READYS 
WAIT FOR COLUMN READY TO CLEAR 
F CLEAR, RETURN TO LOOP4 
=CHECK FOR SPECIAL CONDITION OR CARD DONE 
;BRANCH IF EITHER SET 
;OTHERWISE, CHECK AGAIN 
>CHECK CARD DONE 
:BRANCH IF SET 
; SPECIAL CONDITION SET BEFORE CARD DONE 


;CHECK SPECIAL CONDITION 
:BRANCH IF SET 
; SPECIAL Spd WASN'T SET 


:CHECK TIMING ERR 
:BRANCH IF SET 


SEQ 0017 


14 


mk mi ms mi mim mI MIM mI AIM mi mi RIAL RAR RAL AAA em me Om Oe DD 2D De Be I 2 I oe DS I EL LL I LE 


sme ee wee me ee eh me ee ee ee ee eh ee ee ad ed eed ed ed ed et ot 0 et I 0 ot ot BH od to I SO OO OS SH = OS SV St St SS 
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ta et ee ee eee 


e 


po 


CMQ11=K CARD READER TEST 
07-JUL-81 09:06 


CVCMAA. SRC 


perder arf serdar Sper 
and and anh and ant ani and 
O OONAOU EW 


| 

| 

| 

| 
811 
812 
821 


002160 


—_ 


104400 


004737 


104000 


000421 


104000 


021327. 


144000 


010674 


140200 
040000 


006430 


004000 


006430 


040200 


000200 


Se ie eee | ee a ee ewe ee ee es 


YM=7110A=AA 


TESTS: SCOPE 

;SETTING READ SHOULD CAUSE COLUMN READY TO SET 40 OR 80 TIMES wer: CARD DONE SETS 

;READING — eh oe 4 SHOULD 
J 


LOOPS: 


CK5: 


MACY11 30A(1052) 
HLT 

DEC COUNT 
BPL . +6 
HLT 

BR . +6 
BEQ +4 
HLT 

TSTB acRs 
BPL +4 
HLT 


acRs 
BIT rh? er aCRS 
_+ 


e 


CLR COUNT 

I aCRS 

BIT #140200, aCRS 

BIT #40000, acrRs 
CK5 


TST aCRS 
BPL . +6 
HLT 
BR TEST6 
CMP COUNT ,COLM1 
BPL LOOP5 
INC COUNT 
TST aCRB1 
TSTB aCRS 
BPL +4 
HLT 
BR LOOPS 
BIT ie acRS 
BEQ 
HLT 


Fé 
04-AUG-81 


09:08 PAGE 15-3 


; TIMING ERROR WASN'T SET 
;CHECK NUMBER OF cahen READYS 
;BRANCH IF ANY OCCURRED 
;COLUMN READY NEVER OCCURRED 


;BRANCH IF ONLY ONE OCCURRED 

;COLUMN READY OCCURRED MORE THAN ONCE 
;CHECK COLUMN READY 

;BRANCH IF NOT SET 

;COLUMN READY WASN'T CLEARED 

CLEAR BITS 11,14, AND 15 VIA DATO 


;BITS 11,14, AND 15 WEREN'T ALL CLEARED 


CLEAR COLUMN READY AND PREVENT A 
s INITIALIZE STATUS REGISTER 
- INITIALIZE COUNTER 
s INITIATE READ 
sWAIT FOR COLUMN READY, CARD DONE 
;0R SPECIAL CONDITION 
;CARD DONE? 
7YES, BRANCH 
sCHECK BIT 15 
;SKIP ERROR a IF NOT SET 


TIMING ERROR 


; 0 OR 80 
:BRANCH IF 40 OR 80 OR MORE WITHOUT CLEARING READY 
; INCREMENT COUNTER 
; CLEAR READY 
MAKE SURE IT CLEARED 
“BRANCH IF IT DID 
; READING DATA BUFFER DIDN‘T CLEAR READY 


; LOOP 

: CHECK TIMING ERROR BIT 
ANCH IF NOT SET 

“TIMING ERROR WAS SET 


argh THAT IF COLUMN READY SET MORE THAN 40 OR 80_TIMES 


TEST 
CMP COYeNT J COL 
+ 


CMP BCAS AROCOS 
+ 


CLR aCRS 

CMP aCRS,#200 
BEQ .*4 

HLT 

TST aCRB1 


A TIMING ta WILL CCCUR AND THE COUNT UR BE 39 OR 79 


;BRANCH AFTER ERR 
:CHECK COUNT 

;BRANCH IF 40 OR 80 COLUMN READYS ‘Birt’ 
;COLUMN READY DIDN*T OCCUR 40 OR 80 T 

:BEFORE CARD DONE 

:ONLY CARD DONE AND COLUMN READY SHOULD BE SET 


;STATUS REGISTER IN WRONG STATE 
>SHOULD CLEAR DONE BUT NOT READY 
a3 ONLY READY SET 


; BRANCH OK 
;STATUS REGISTER IN WRONG STATE 
;READING DATA BUFFER SHOULD CLEAR COLUMN READY 


ETT, oo ToT TTT TTT EEE, TET TT TTT TM mS RM am a a eae Stil 


ss 


. mi mk mek mk Mi ek Mi mi mi mi mi mi MI AMLAL ALA RAL ALA AL ALL ALL ALAA ALA ALL AL ALALALALAAWUAUULALMAMIUWNAUAUMUWUUWUUWIUWAUNUUSa 
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CMQ11=K CARD READER TEST YM=7110A=AA MACY11 30A(1052) 04-AUG=81 09:08 PAGE 15-4 
CVCMAA.SRC =: 07=JUL=81 09:06 SEQ 0019 
| B59 002162 005713 TST acRs :CHECK STATUS REGISTER 
| B60 002164 001401 BEQ +4 “BRANCH IF ALL BITS ZERO 
| 86 002166 104000 HLT “STATUS REGISTER NOT EQUAL TO ZERO 
| 
B63 002170 104400 TEST6: SCOPE 
| B64 : TIMING ERROR SHOULD SET BIT 11 BEFORE CARD DONE OCCURS, EVEN IF IT OCCURS AT COLUMN 40 
| 865 A DATOB TO THE LOW BYTE OF THE CRS SHOULD CLEAR BITS 15,14, AND 11 
| 866 002172 737 010674 JSR INIT : INITIALIZE 
| 867 002176 012701 000115 MOV Hee , COUNT ; SETUP COUNTER 
| B68 002202 005213 INC acrR “START READING A CARD 
869002204 «105713 Loops: TSTB — SCRS ;WAIT FOR COLUMN READY 
| 870 002206 100376 BPL - 
| B71 002210 005714 TST acRB1 :CLEAR COLUMN READY 
| 872 002212 005301 DEC COUNT “GO THRU LOOP FOR 1ST 78 COLUMN READY'S 
| B73 002214 100373 BPL LOOP6 
| 874 002216 032713 144000 BIT #144000,aCRS § ;WAIT FOR CARD DONE OR TIMING ERROR 
| 875 002222 001775 BEQ = 7OR SPECIAL CONDITION 
| 876 002224 032713 040000 BIT #40000, aCRS =CARD DONE SET? 
| 877 002230 001026 BNE RR6 -YES, 2 POSSIBLE TEST FAILURES 
878 002232 ~032713 004000 BIT #4000,aCRS “CHECK TIMING ERROR 
879 002236 001416 BEQ OF F6 “IF NOT SET, READER IS PROBABLY OFF-LINE 
880 002240 105713 TSTB ~—s- @CRS “CHECK COLUMN REA DY 
881 002242 100001 BPL +4 “BRANCH IF CLEAR 
| BB2 002244 104000 HLT -TIMING ERROR DIDN'T CLEAR READY 
| BB3 002246 005713 TST acrs “WAIT FOR SPECIAL CONDITION 
| 002250 100376 BPL - 
| 885 002252 032713 040000 BIT #40000, aCRS :CHECK CARD DONE 
| 002256 001406 BEQ OFF 6 -IF NOT SET, READER 1S. PROBABLY OFF-LINE 
887 002260 105013 CLRB ~—s_ aCRS *DATOB TO LOW BYTE OF CRS 
888 002262 032713 144000 BIT #144000,aCRS § :CHECK BITS 15,1 
B89 002266 001415 BEQ TEST? “BRANCH IF CLEAR ‘9 NEXT TEST 
890 002270 104000 HLT -DATOB TO LOW BYTE OF CRS DIDN'T CLEAR 
891 “BITS 15,14 AND/OR 11 
892 002272 000413 BR TEST7 *GO TO NEXT TEST 
89% 002274 032713 000400 OFF6: BIT #400,aCRS “CHECK BIT 8 
002300 001010 BNE TEST? “BRANCH IF SET 
895 002302 104000 HLT “BIT 15 WAS SET, 8 WASN'T 
896 002304 000406 BR TEST? -GO TO NEXT TEST 
897 002306 032713 004000 ERR6: BIT #4000, aCRS > TIMING ERROR SET? 
898 002312 001402 BEQ +6 :NO, BRANCH 
899 002314 104000 HLT “TIMING ERROR DIDN'T SET BEFORE CARD DONE 
900 002316 000401 BR TEST? -GO TO NEXT TEST AFTER ERROR 
901 002320 104000 HLT >TIMING ERROR WASN'T SET 
903 002322 104400 TEST7: SCOPE 
904 :NOT READING THE 40TH OR 80TH COLUMN OF DATA FROM THE BUFFER 
905 “SHOULD CAUSE A TIMING ERROR ON THE FIRST COLUMN OF THE NEXT CARD 
906 -SETTING EJECT SHOULD CLEAR TIMING ERROR, AND BIT 15 SHOULDN'T SET 
907 -INCB SHOULD START A READ 
909 002324 004737 010674 JSR 47, INIT : INITIALIZE 
910 (02330 005213 INC acrs *START READ 
911 002332 013701 006426 MOV COLSIZ,COUNT  ;INITIALIZE COUNTE 
912 002336 032713 140200 LOOP7: BIT #140200, aCRS §: TEST FOR ERROR, DONE OR READY 
913 002342 001775 BEQ LOOP “LOOP IF NONE SET 
914 002344 005713 TST oe = CHECK ERROR 
| 
| 
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SCOPE 


. +6 ;BRANCH IF NOT SET 
:BIT 15 WAS SET 
ST8 ;GO TO NEXT TEST AFTER ERROR 
#40000,aCRS :CHECK FOR CARD DONE 
ONE 7 ;BRANCH IF SET 
COUNT ; COUNT 
. +6 ;IF LAST COLUMN READY, BRANCH 
cod : CLEAR DONE 
#140000. aCRS :WAIT FOR DONE OR SPECIAL CONDITION 
acRs ;CHECK SPECIAL CONDITION 
DONE 7 :BRANCH IF NOT SET 
;SPECIAL CONDITION WAS SET 
TEST8 :GO TO NEXT TEST AFTER ERROR 
COUNT ; TEST FOR 40 OR 80 COLUMN READY'S 
. +6 :BRANCH IF OK 
;COLUMN READY DID NOT OCCUR 40 OR 80 TIMES 
TESTS :GO TO NEXT TEST AFTER ERROR 
aCRS : START READ 
acRS ;CHECK COLUMN READY 
+4 ;BRANCH IF STILL SET 


;READY DID NOT REMAIN SET 
vt aCRS ¢ TEST FOR OF eet ERROR 


achs ® CHECK COLUMN “SET. 
: TIMING ERROR DIDN'T CLEAR READY 


TESTS 
#2,aCRS :SET EJECT 
#4000,aCRS “CHECK TIMING ERROR 
+6 “BRANCH IF CLEARED 

“TIMING ERROR NOT CLEARED BY DATOB 
TESTS *GO TO NEXT TEST AFTER ERROR 
#140000,aCRS | :WAIT FOR DONE OR SPECIAL CONDITION 
#400, aCRS :CHECK BIT 8 
TESTS “BRANCH IF READER OFF-LINE 
acRs >SPECIAL CONDITION SHOULDN'T SET 
+4 “SINCE DATOB CLEARED TIMING ERROR 


:BIT 15 WAS SET, 8 WASN'T 


AVAILABLE IN THE DATA BUFFER FOR AT LEAST 1.0 MILLISECOND 
47,1NIT NITIALIZE STATUS TER 


REGIS 

ars mas STORE a PROCESSOR STATUS AND CLEAR TRACE BIT 
#140200,aCRS “WAIT FOR COLUMN READY OR CARD DONE 
= ;0R SPECIAL CONDITION 
#40000,aCRS 7CA RD DONE? 
DBRCK8 YES, GO TO CHECK STROBING OF DBR 
aCRS “NO, CHECK BIT 15 
+6 ;BRANCH IF NOT SET 

;BIT 15 WAS SET 
TESTI ;GO TO NEXT TEST AFTER FRROR 
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RESTB: 


MACY11 30A(1052) 


SCOPE 
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acRsS ;DATO TO CRS = SHOULDN'T CLEAR BUSY OR READY 
#1200,aCRS ;CHECK FOR BUSY AND READY 
. +6 :BRANCH IF STILL SET 
;CRS_IN WRONG STATE 
TESTI :GO TO NEXT TEST AFTER ERROR 
@CRB1,R5 ;STORE DATA 
#100, COUNT ; INITIALIZE COUNTER 
i :WAIT FOR ° MILLISECOND OR LESS 
@CRB1,R5 ; DATA UNCHANGED? 
LOOP8 :0K, CONTINUE 
:DATA NOT AVAILABLE FOR 1 MILLISECOND 
TEST :GO TO NEXT TEST AFTER FAILURE 
aCRB2,R2 :STORE ENCODED DATA IN REGISTER 2 
#100, COUNT : SET UP COUNTER 
a@CRB1,R5 READ CARD-IMAGE DATA BUFFER 
. +6 :BRANCH IF UNCHANGED 
;CRB1 READ INCORRECTLY 
ed Ba R2 ;BRANCH TO RESTORE PROCESSOR STATUS AND EXIT 


;READ ENCODED DATA BUFFER 
. +6 ;BRANCH IF UNCHANGED 
;CRB2 READ INCORRECTLY 
=BRANCH AFTER FAILURE 
COUNT :COUNT DOWN 

CONTS8 ;LOOP IF NOT DONE 

PROC ,=(SP) sRESTORE PROCESSOR STATUS 
MTEST9,-(SP) 


TESTY: 
sEJECT SHOULD PREVENT FURTHER COLUMN READY'S 
;CARD DONE SHOULD STILL OCCUR, AND TIMING ERRORS SHOULD BE 


oe IF 


1$: 


WAITS: 


CK9: 


te oe COLUMN: READY IS CLEA 


RED 
NITIALIZE STATUS REGIS 


TER 
%7,CLRTR “SAVE PROCESSOR STATUS AND CLEAR T BIT 
acrs *START READ 
acrs “WAIT FOR COLUMN READY 
#2,aCRS :SET EJECT 
acral =CLEAR COLUMN READY 
COUNT 
#6, (NTER -SET A COUNT FOR 6 LOOPS 
COUNT “WAIT 
CNTER 
#44200, aCRS -CARD DONE, TIMING ERROR, OR 
CK9 *COLUMN READY SET?= BRANCH IF YES 
:NO CARD DONE OCCURRED 
RESTS “CONTINUE AFTER FAILURE 
#40000, aCRS =CHECK FOR CARD DONE 
#200, aCRS :CHECK COLUMN READY 
+6 “BRANCH IF NOT S 


ET 
;COLUMN READY WAS SET 


SEQ 0021 
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RESTS: 


TEST10: 
; CARD D 


TINT10: 


CONT10: 


TEST11: 
;EVERY 


LOOP11: 
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BR REST9 
HLT 


MOV PROC ,=(SP 


EC 
) ST 
ad ATEST1O,=(SP) 


;EJECT DID NOT PREVENT A TIMING ERROR 
;RESTORE PROCESSOR STATUS 


SCOPE 
ees, CAUSE AN INTERRUPT 


-INIT ; INITIALIZE 
MOV EM apes ;LOAD RETURN POINTER 


MFPS 

BIS #200,PRIOR 

MTPS PRIOR 

MFPS 2(ADINT) 

MFPS PRIOR 

BIC #200,PRIOR 

MTPS PRIOR 

MOV #103,aCRS ;SET EJECT, INTERRUPT ENABLE, AND READ 

th cP ena ;WAIT FOR CARD DONE 

MTPS 2 (ADINT) 

CLRB aCRS ;CLEAR INTERRUPT ENABLE 

HLT ;NO INTERRUPT OCCURRED 

BR CONT10 

BIT #40000,aCRS ; CHECK CARD DONE 

BNE +4 ;BRANCH IF SET 

HLT ;CARD DONE NOT SET 

CMP (SP)+,(SP)+ ;RESTORE STACK POINTER 

by — ;MAKE SURE NO ERROR OCCURRED 
.+ 


HLT ;BIT 15 WAS SET 


TSTB ~—-_ @CRS =CHECK COLUMN READY 
BPL +4 “BRANCH IF NOT SET 

HLT >COLUMN READY WAS SET 

CLR acrs “DISABLE INTERRUPTS 

MOV #232,@ADINT “CHANGE INTERRUPT RETURN ADDRESS 
CLR ah232 *TO CAUSE A HALT IF AN INTERRUPT OCCURS 
SCOPE | 

COLUMN READY SHOULD CAUSE AN INTERRUPT 

JSR 47, INIT : INITIALIZE 

MOV COLSIZ,COUNT §;CHECK EACH COLUMN 

MOV #TINT11,@ADINT [LOAD RETURN POINTER 

MFPS PRIOR 

BIS #200,PRIOR 

MIPS PR 

MFPS § 2(ADINT) 

MFPS PRIOR 

BIC #200,PRIOR 

MIPS PR 

MOV #101,aCRS :SET READ AND INTERRUPT ENABLE 
iss acrs “WAIT FOR COLUMN READY 

MIPS 2 ADINT) 

CLR acrs :CLEAR INTERRUPT ENABLE 


TT I mg me me 
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YM=2110A=AA 
HLT ;COLUMN READY DID NOT INTERRUPT 
BR CONT11 
TINT11: CLR acRS ;CLEAR INTERRUPT ENABLE 
CMP (SP)+,(SP)+ ;RESTORE STACK POINTER 


011246 


011246 


011246 


TSTB ~—s_ CRS “MAKE SURE COLUMN READY IS SET 
BM] +6 “BRANCH IF SET 
HLT “COLUMN READY WASN'T SET 
BR CONT11 
TST aCRBI :CLEAR READY FLAG 
DEC COUNT “ALL 40 DONE? 
BNE LOOP11 :N 
CONT11: MOV #232, @ADINT “ YES=CHANGE INTERRUPT RETURN ADDRESS | 
CLR a2 32 -TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS 


TEST12: SCOPE 
;CARD DONE SHOULDN'T CAUSE AN INTERRUPT IF THE PROCESSOR IS AT LEVEL 7 PRIORITY 
JSR 7 TIALIZE 


IN 3 IN 
MOV MTINT12,3ADINT ;SETUP RETURN 
PRIOR 
BIS #200,PRIOR 
PRIOR 
MFPS 2 (ADINT) 


MOV #103,aCRS 
BIT Pezeer -AKRS 


;SET EJECT, INTERRUPT ENABLE, AND READ 
;WAIT FOR CARD DONE 


Bro 

BR . +6 ;CONTINUE IF NO INTERRUPT OCCURRED 
TINT12: HLT ;AN INTERRUPT OCCURRED 

CMP ;RESTORE STACK POINTER 


(SP)+,(SP)+ 
CLR acRS ;CLE4R INTERRUPT ENABLE AND EJECT 
MOV #232, @ADINT ;CHANGE INTERRUPT RETURN ADDRESS 
CLR a4 ;TO CAUSE A HALT IF AN INTERRUPT OCCURS 
;A TIMING ERROR SHOULD NOT CAUSE AN INTERRUPT 


TEST20: SCOPE 
JSR 


47, INIT ; INITIALIZE 
MOV #TINTZ0,@ADINT ;LOAD RETURN POINTER 
MFPS PRIOR 
BIS #200,PRIOR 
MTPS PRIOR 


MFPS 2(ADINT) 
MOV #101,aCRS 


:SET INTERRUPT ENABLE AND READ 
BIT #4000,aCRS 


;WAIT FOR TIMING ERROR TO SET 


BEQ 

MFPS PRIOR 

BIC #200,PRIOR 

MTPS PRIOR 

NOP ;CLOCK INTERRUPT IF IT OCCURRED 


MTPS 2(ADINT) 
BR +6 
TINT20: HLT 
C (SP)+,(SP)+ 


: TIMING ERROR CAUSED AN INTERRUPT 
MP INTER 
MOV $23¢,6ADINT 


sRESTORE STACK PO 
;CHANGE INTERRUPT ADDRESS TO CAUSE A 


CLR a#23 “HALT IF AN INTERRUPT OCCURS 
BIT #40000, acRs :WAIT FOR CARD DONE 
CLR acrs -CLEAR INTERRUPT ENABLE 
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CVCMAA. SRC 07=JUL=81 09:06 SEQ 0024 

1139 

i140 003470 104400 TEST21: SCOPE 18 
1141 : TEST FoR i INTERRUPT OCCURING WITH INTERRUPT ENABLE SET AND REST ULLEARED 18 
1142 003472 004737 010674 JSR %7, INIT : INITIALIZE CSR TO ZERO 18 
1143 003476 012710 003556 MOV #TNINT,@ADINT :SETUP RETURN ADDRESS 18 
1144 003502 106 011246 MFPS R 18 
1145 003506 052737 000200 011246 BIS #200,PRIOR 18 
1146 003514 106437 011246 MTPS PRIOR 18 
1147 093520 106760 000002 MFPS 2(ADINT) 18 
1148 003524 005037 011246 CLR PRIOR 18 
1149 003530 106437 011246 MTPS PRIOR 18 
1180 003534 012713 000100 MOV #100,aCRS :ENABLE INTERRUPTS 18 
1151 003540 005001 CLR COUNT : INITIALIZE COUNTER 18 
1152 003542 005201 INC COUNT “WAIT AW!ILE 18 
1153 003544 001376 BNE .-2 18 
1154 003546 106460 000002 MIPS 2(ADINT) 18 
1155 003552 005013 CLR acRs -DISABLE FURTHER INTERRUPTS 18 
1156 003554 000403 BR CONT21 18 
1157 003556 104000 TNINT: HLT AN INTERRUPT OCCURRED 18 
1158 003560 022626 CMP (SP)+,(SP)+ “RESTORE STACK 18 
1159 003562 005013 CLR acrs *DISABLE FURTHER INTERRUPTS 18 
1160 003564 005037 000232 CONT21: CLR a#232 :CHANGE INTERRUPT RETURN ADDRESS TO 18 
116} 003570 012710 000232 MOV #232,@ADINT =CAUSE A HALT IF AN INTERR''PT OCCURS i 
1163 003574 104400 TEST22: SCOPE 18 
1164 : CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE LEVEL 18 
1165 003576 004737 010674 JSR 47, INIT : INITIALIZE CSR TO ZERO 18 
1166 003602 012710 003656 mOV ATINT , @ADINT  :SETUP RETURN ADDRESS 18 
1167 003606 106737 011246 MFPS RIOR 18 
1168 003612 052737 000200 011246 BIS #200, PRIOR 1€ 
1169 003620 106437 011246 MTPS _—- PRIOR 1é 
1170 003624 106760 0006002 MFPS 2(ADINT) 18 
1171 003630 106737 011246 MFPS - PRIOR 18 
1172 042737 000200 011246 BIC #200, PRIOR 1$ 
117% 003642 106437 011246 MIPS PR 15 
1174 003646 012713 000103 MOV #103,aCRS ;SET_ INTERRUPT ENABLE AND EJECT A CARD 1S 
1175 003652 000001 WAIT :WAIT FOR INTERRUPT 15 
1176 003654 000776 BR .-2 -SIT IF TRACE BIT IS SET 1S 
1177 003656 022626 T2INT: CMP (6)+,(6)+ “RESTORE STACK POINTER 1S 
1178 003660 012710 003704 MOV MHT2INTA,@ADINT :=CHANGE RETRUN ADDRESS 1§ 
1179 005037 011246 CLR PRIOR 15 
1180 003670 106437 011246 MTPS PRIOR 15 
1181 003674 000240 NOP :WAIT 1S 
1182 003676 106460 000002 MIPS 2(ADINT) 15 
1183 003702 000402 BR CONT22 15 
1184 003704 022626 T2INTA: CMP (6)+,(6)+ ;RESTORE STACK 1§ 
1185 003706 104000 HLT THE INTERRUPT OCCURRED AT 2 LEVELS 1$ 
1186 003710 005013 CONT22: CLR acrs “DISABLE INTERRUP 1§ 
1187 003712 005037 000232 CLR 94232 “CHANGE INTERRUPT RETURN ADDRESS TO 1$ 
1188 003716 012710 000232 MOV #232,@ADINT -CAUSE A HALT IF AN INTERRUPT OCCURS i 
1190 003722 104400 TEST23: SCOPE 1§ 
1191 ALL MODES OF ADDRESSING CRB1 OR CRB2 (DATO,DATOB,DATI) SHOULD CLEAR 4 
1193 003724 004737 010674 JSR 47, INIT : INITIALIZE 1 
1194 003730 005213 INC acRs “START READING A CARD 15 
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1195 003732 105713 TSTB acrs :WAIT FOR COLUMN READY : 19 
1196 003734 100376 BPL .- 19 
1197 003736 005714 TST acRB1 :DATO TO CRB1 19 
1198 003740 105713 TSTB acrs :CHECK COLUMN READY 19 
1199 003742 100002 BPL CNT23A -BRANCH IF CLEARED 19 
1200 003744 104000 HLT -DATO TO CRB1 DIDN'T CLEAR READY 19 
1201 003746 000467 BR TEST24 :GO TO NEXT TEST 19 
1202 003750 105713 CNT23A: TSTB acrs :WAIT FOR COLUMN READY 19 
1203 003752 100376 BPL .- 19 
1206 003754 105714 TSTB acRBl :DATOB TO LOW BYTE OF CRB1 19 
1205 003756 105713 TSTB acrs :CHECK COLUMN READY 19 
1206 003760 100002 BPL CNT23B *BRANCH IF CLEARED 19 
1207 003762 104000 HLT -DATOB TO CRB1 LOW BYTE DIDN'T CLEAR READY | 19 
1208 3764 000460 BR TEST24 :GO TO NEXT TEST 19 
1209 003766 105713 CNT23B: TSTB acrs :WAIT FOR COLUMN READY | 19 
1210 003770 100376 BPL .-2 19 
1211 003772 105764 000001 TSTB 1(CRB1) :DATOB TO HIGH BYTE OF CRB1 19 
1212 003776 105713 TSTB acRrs :CHECK COLUMN READY 19 
1213 004000 100002 BPL CNT23C ;BRANCH IF CLEARED | 19 
1214 004002 104000 HLT -DATOB TO CRB1 HIGH BYTE DIDN'T CLEAR READY | 19 
1215 004004 000450 BR TEST24 :GO TO NEXT TEST : 19 
1216 004006 105713 CNT23C: TSTB acRs :WAIT FOR COLUMN READY 19 
1217 004010 100376 BPL .-2 19 
1218 004012 005714 TST acRB1 :DATI TO CRB1 19 
1219 004014 105713 TSTB acRrs ; CHECK COLUMN READY 19 
1220 004016 100002 BPL CNT 23D BRANCH IF CLEARED 19 
1221 004020 104000 HLT :DATI TO CRB1 DIDN'T CLEAR READY 19 
1222 004022 000441 BR TEST24 :GO TO NEXT TEST 19 
1223 004024 105713 CNT23D: TSTB acrs sWAIT FOR COLUMN READY 19 
1224 004026 100376 BPL .-2 19 
1225 004030 005777 174776 TST acRB2 :DATO TO CRB2 19 
1226 004034 105713 TSTB acrs ;CHECK COLUMN READY 19 
1227 004036 100002 BPL CNT23E -BRANCH IF CLEARED 19 
1228 004040 104000 HLT :DATO TO CRB2 DIDN'T CLEAR READY 19 
1229 004042 000431 BR TEST24 -GO TO NEXT TEST | 19 
1230 004044 105713 CNT23E: TSTB  aCRS ;WAIT FOR COLUMN READY | 19 
1231 004046 100376 BPL .-2 | 1$ 
1232 004050 105777 174756 TSTB = aCRB2 :DATOB TO LOW BYTE OF CRB2 19 
1233 004054 105713 TSTB acRs :CHECK COLUMN READY 19 
1234 004056 100002 BPL CNT23F *BRANCH IF CLEARED 19 
1235 004060 104000 HLT , :DATOB TO CRB2 LOW BYTE DIDN’T CLEAR READY | 19 
1236 006062 000421 BR TEST24 :GO TO NEXT TE | 19 
1237 004 105713 CNT23F: TSTB acrs :WAIT FOR COLUMN READY 19 
1238 004066 100376 BPL .-2 19 
1239 004070 013702 001032 MOV CRB2,R2 LOAD POINTER 19 
1240 004074 105762 000001 TSTB. - «1(R2) :DATOB TO HIGH BYTE OF CRB2 19 
1241 004100 105713 TSTB ~—_ a@CRS :CHECK COLUMN READY 1$ 
1242 004102 100002 BPL CNT 23G -BRANCH IF CLEARED 1$ 
1243 004104 104000 HLT *DATOB TO CRB2 HIGH BYTE DIDN'T CLEAR READY 19 
yf ¢: 004106 000407 TEST24 :GO TO NEXT TEST Hy. 
1246 004110 105713 C(NT23G: TSTB ~~ acrRS | :WAIT FOR COLUMN READY 19 
1247 004112 100376 BPL .-2 15 
1248 004114 005777 174712 TST acRB2 -PATI TO CRB2 19 
1249 0046120 105713 TSTB acrs :CHECK COLUMN READY 19 
1250 004122 100001 BPL TEST24 -BRANCH IF CLEARED 19 
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HLT ;DATI TO CRB2 DIDN'T CLEAR READY 


TEST24: SCOPE 

;SETTING EJECT AFTER A COLUMN READY WITHOUT CLEARING THE COLUMN READY 

:SHOULD SET TIMING ERROR (WHICH IN TURN SHOULD CLEAR COLUMM READY) 
JSR 47,INIT ; INITIALIZE 


INC aCRS :START READING A CARD 

bd acRs :CHECK COLUMN READY = WAIT 

BIS #2 ,aCRS ;SET EJECT 

TSTB aCRS ;CHECK COLUMN READY 

BMI CNT24A ;BRANCH IF STILL SET 

HLT * SETTING EJECT CLEARED COLUMN READY 
;BRANCH TO WAIT FOR DONE AFTER ERROR 


BR END24 
CNT24A: BIT #4000,aCRS :CHECK TIMING ERROR 


BNE TIM24 :BRANCH IF SET 

BIT os te aCRS ;CHECK CARD DONE AND OFF-LINE 

BEQ :LOOP IF NONE SET 

BIT #40000, aCRS + CARD DONE SET? 

BNE CNT24B YES = ERANCH TO ERROR PRINTOUT 

JSR 27, CKBITS “NO - BIT 8 WAS SET SO OUTPUT MESSAGE 

BR ENDCK ;BRANCH AFTER COMING BACK ON-LINE 
CNT24B: HLT ;CARD DONE SET BUT TIMING ERROR DIDN*T 

BR ENDCK 7BRANCH TO NEXT SECTION 
TIM24: TSTB acRs ;CHECK COLUMN READY 

BPL +4 ;BRANCH IF NOT SET 

HLT ; TIMING ERROR DIDN*T CLEAR READY 
END24: 4h aa aCRS ;WAIT FOR CARD DONE OR OFF=LINE 


BIT #600, acRs ;CHECK OFF LINE 
REQ ENDCK ;BRANCH IF NOT SET 
JSR 47,CKBIT8 :OUTPUT ERROR MESSAGE 


:CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL 


;OTHERWISE GO INTO THE DATA TEST 
ENDCK: SCOPE 


NC DECCYC 34 OF TIMES THROUGH DECK 
BIT #200,aSR 

BEQ DATST 

JSR 47 BELL 

COM TRFLG ; TOGGLE TRACE FLAG 

MOV #STACK,SP S INITIALIZE STACK 

JMP RESTRT 


;DATA RELIABILITY TEST FOR CMQ11-K 


;CHECK SR FOR TYPE OF + BEING TESTED, AND INITIALIZE POINTERS 
DATMK: JSR PC, CKSWR 
CLR CDCNT CLEAR eects CARD COUNTER 
:LOAD PARAMETERS 








D,R 
#mSG20. DECK 
#4,aSR 
BEQ DATST1 





;SR2=1 FOR 40 COL CRD 


SEQ 0026 
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006416 
006402 


006412 


006420 


001742 


006414 
006416 


006444 
006444 
006402 
001652 


006414 
006416 


006444 
006444 
006402 


001546 
000002 


DATST: 


1$: 


2$: 


DATST1: 
DATST2: 


DATST3: 


ALP1: 


1$: 


2$: 
CONTD: 


PSSET1: 


DCNT1: 
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SEQ 0027 © 

#MKNDGO, TEND | 
#MSG23, DECK 
DATSTI 
PC, CKSWR “GET SOFTWARE SWITCH 
FLAG “FLAG INDICATES WETHER TEST CAN BE RUN 
w) .DECCYC HAS, ONLY ONE PASS OF TEST BEEN RUN 
FLAG “SET SWITCH RUN TEST 
#MSG22,R2 *REPORT ILLEGAL PROCEDURE (MORE THAN 1 PASS) | 
47, TOUT -PRINT THE MESSAGE 

“MORE THAN 1 TIME THROUGH DELK | 
BEGIN “RESTART | | 
#40,CDCNT “SETUP CARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT C 
40 “DEFINE SWTHR 
DATST2 -SKIP NEXT INSTRUCTION 
CDCNT “SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING 
SWTHR “CLEAR SWTHR 
ERFLG “FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
0 “DEFINE CNTCRD 
#20,aSR -CHECK BIT 4 OF SR FOR TYPE OF DECK 
ALP} “BRANCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS 
#BINCD,TSTART :BIT 4 SET LOAD BINARY POINTERS 
#BINEND , TEND 
FLAG “CAN TEST BE RUN? 
#BINCD2,R5 :LOAD INDEXED VALUE 
#BINCD2, TABPT 
#BINCD,R5 -BIT 2 SET, LOAD BINARY TABLE POINTERS 
#BINCD, TABPT “LOAD CURRENT POINTER(TO VIRTUAL BEG.)OF TABLE, TEND 
CONTD — -BRANCH AROUND ALPHANUMERIC POINTERS 
#10 as “TEST FOR MARK SENSE 
WALPCD,TSTART  ;:BIT 3 SET LOAD ALPHA TABLE POINTERS 
#ALPEND , TEND 


A ae ; INDEXED OR NOT 


1 ;BR=NO 

#ALPCD2,R5 ;LOAD THE INDEXED STARTING POINT 

thee cea 

#ALPCD,R5 ;LCAD ALPHANUMERIC TABLE POINTERS 
#ALPCD, TABPT ;POINTER TO VIRTUAL BEGIN OF DATA TABLE 
#MSG14,DECK 

#340,-(SP) ;PUSH STATUS ON STACK 

#DCNT1,-(SP) ;PUSH PC ON STACK 

TRFLG ; CHECK FLAG 

PSSET1 ;1F IT Ib POSITIVE, CLEAR T BIT 
#10000,aSR ; TRACE TRAPPING INHIBITED? 

PSSET1 ;BRANCH IF YES 

#360,2(SP) ;SET T BIT ON STACK 

27, INIT ; INITIALIZE CARD READER STATUS REGISTER 
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CVCMAA. SRC 07=JUL-81 09:06 SEQ 0028 CVCM, 
1363 20 
1364 :SET UP INTERRUPT SERVICING, AND START READING 20 
1365 004702 012710 004746 MOV #SRVC,@ADINT :SETUP RETURN POINTER 20' 
1366 004706 106737 011246 MFPS PRIOR 20 
1367 004712 042737 000200 011246 BIC #200,PRIOR 20 
1368 004720 106437 01124 MTPS PRIOR 20 
1369 004724 012760 000340 000002 MOV #340,2(ADINT) | ;STORE CURRENT STATUS 20 
1370 004732 604737 006302 JSR 7,NXCRD *ADJUST POINTER AND START READING 20 
1371 004736 052713 000100 _ BIS #100,aCRS -ENABLE INTERRUPTS : 20 
1372 004742 000001 WAIT -WAIT FOR INTERRUPTS 211 
ie 004744 000776 BR .*2 $1 
1375 : INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TEST 21 
1376 004746 032713 000490 SRVC: BIT #400,aCRS :TEST OFF-LINE 21 
1377 004752 001402 BEQ +6 *BRANCH IF NOT SET 21 
1378 004754 000137 007014 JMP OFFSET -IF SET, GO CHECK WHY 21 
1379 004760 005713 TST acRs CHECK SPECIAL CONDITION (BIT 15) 21 
1380 004762 100002 BPL 1$ > SKIP 21 
1381 004764 137 005314 JMP ERSET 21 
1382 004770 105713 1$: TSTB acrs CHECK COLUMN READY 21 
1383 004772 1004 BM! + *BRANCH IF SET 21 
1384 004774 000137 005716 JMP NOTCOL - JUMP IF NOT SET 21 
1385 005000 095237 006422 INC CLCNT KEEP TRACK OF COLUMN NUMBER 21 
1386 005004 011437 006434 MOV @CRB1,DAT1 STORE DATA OF FIRST READ 21 
1387 005010 105713 TSTB acrs *MAKE SURE COLUMN READY CLEARED 21 
1388 005012 100012 BPL SCONT1 sBRANCH IF IT DID 21 
1389 005014 106737 011246 MFPS PRIOR 21 
1390 005020 052737 000200 011246 BIS #200,PRIOR 21 
1391 005026 106437 011246 MIPS PRIOR 21 
1392 005032 104000 HLT READING DATA DIDN'T CLEAR COLUMN READY 21 
1393 005034 1 006006 JMP LASTCK -GO TO NEXT CARD AFTER ERROR PRINTOUT 21 
1394 005040 017737 173766 006440 SCONT1: MOV ACRB2,DATENC -STORE ENCODED DATA 21 
1395 005046 012701 000010 MOV #10, COUNT -WAIT AWHILE 21 
1 005052 005301 DEC COUNT 21 
1397 005054 001376 BNE .-2 21 
1398 005056 011437 006436 MOV aCRB1,DAT2 STORE DATA OF SECOND READ 21 
1399 005062 005037 006442 CLR PTOFF :CLEAR POINTER OFFSET 21 
1400 005066 023715 006434 CMP DAT1,a@R5 CHECK FIRST DATA READ 21 
1401 005072 001142 BNE FAIL -PRINTOUT IF WRONG 21 
1402 005074 012737 000002 006442 MOV #2,PTOFF *SET POINTER OFFSET 21 
1403 005102 023725 006436 CMP DAT2, (R5)+ CHECK SECOND READING OF SAME DATA 21 
1404 005106 001134 BNE FAIL -BRANCH IF WRONG 21 
1405 005110 012737 000004 006442 MOV #4,,PTOFF SET POINTER OFFSET 21 
1406 005116 023725 006440 CMP DATENC, (R5)+ =CHECK ENCODED DATA 21 
1407 005122 001126 BNE FAIL :BRANCH IF WRONG 21 
1408 005124 023727 006420 000036 CMP CDCNT, #30. -OVER 30 CARDS? 21 
1409 005132 003010 BGT 1$ *BR=YES CHECK FOR END OF TABLE 21 
1410 005134 032777 000004 001270 BIT #4,aSR :40 COL? 21 
1411 005142 001004 BNE “YES 21 
1412 005144 032777 000010 001260 BIT #10,aSR -M.S.? & LESS THAN 30 CARDS 21 
1413 005152 001005 BNE 2$ *BR =YES M.S. & LESS THAN 30 CARDS $ 
1414 005154 020537 006416 1$: CMP RS, TEND :NO ,@ END OF TABLE? 1 
1415 005160 002402 BLT 2$ *BR= NO 21 
1416 005162 013705 006414 MOV TSTART,RS -RESET POINTERS 21 
1417 005166 023737 006426 006422 2$: CMP COLSIZ,CLCNT -ALL COLUNMS DONE 21 
1418 005174 001015 BNE TAGB -NO ,JUST RETURN 21 
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BEQ FADJ ;BR=END OF CARD 
001224 FADJ: BIT #4,aSR 340 COL? 
BNE TAGA YES 
001214 BIT #10,aSR sMARK SENSE TEST?+ADJ. ON FAILURE 
BEQ D ;NO KEEP ON TESTING 
BR TAGC : IF NOT TRY 
TAGA: MOV TSTART,RS5 ;LOAD DATA TABLE POINTER 
BR TAGZ :FEED ANOTHER CARD 
TAGB: RT] 
TAGC: BR TAGA > IF LESS THAN AND NOT = TO DONT ADJ 
ADJUST POINTER TO DATA rs SO THAT 1ST COLUMN ON 
NEXT CARD IS 2ND COLUMN OF PREVIOUS. 
skeet KAD JUST ee tee THIS IS AN END OF CARD , TABLE ADJUSTMENT 
006444 TAGD: ADD #4, TABPT ;UPDATE BY 2 WORDS/COLUMN 
006416 CMP TABPT, TEND ; HAVE WE EXCEED THE TABLE? 
BLE TACE NOT GET NEXT CARD 
006444 MOV TS) _TABPT “IF YES SET POINTER BACK>BEGIN 
MOV TST+ R5 *RELOAD DATA TABLE POINTER 
NOP ;PICK NEXT CARD 
TAGE: MOV TABPT,RS- ;PUT NEW POINTER IN R5 
006420 TAGZ: i — REACHED ALL CARDS YET? 
JMP ALLDON ;YES TAKE CARE OF IT 
TAGF : JSR %7,NXCRD “GET NEXT CARD 
RT] :GO AND AWAIT :INT.FROM NEXT CARD 
>SPECIAL CONDITION BIT 15 WAS SET BUT BIT 8 WASN'T WHEN INTERRUPT SERVICE ROUTINE 
;WAS ENTERRED 
ERSET:JSR PC, CKSWR 
MFPS PRIOR 
011246 BIS #200,PRIOR 
MTPS PRIOR 
HLT :;SPECIAL CONDITION WAS SET AND OFF LINE WASN'T 
BIT #400,aCRS OF F=LINE SET NOW? 
BNE . +6 :YES-SKIP OVE 
JMP LASTCK :NO-GO START NEXT CARD 
006420 ER1: CMP DEKSI?. CDCNT sCHECK FOR LAST CARD 
BNE soe : IF NOT,PRINT OUT MESSAGE 
JMP LLDON 
JSR 27° CKBITS sOUTPUT MESSAGE ,WAIT FOR ON-LINE 
JSR %7,NXCRD * START NEXT CARD 
RT] 
DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT 
MFPS PRIOR 
011246 BIS #200,PRIOR 
MTPS PRIOR 
006426 CMP CLCNT,COLSIZ 3;CHECK FOR LAST COL. 
BEQ 1$ :;D0 NOT EJECT IF CRD DONE IS SET 
BIS #2,aCRS ;SET EJECT TO PREVENT TIMING ERROR 
1$: TST aCRB1 “MAKE CERTAIN COLUMN READY IS CLEAR 
000770 Ab o> tines :CK SW15 FOR INHIBIT PRINTOUT 
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006420 


FTEST: 


FCNT: 


MACY11 30A(1052) 


JSR %7,FPRINT 
aSR 

BPL +4 

Ms 

BIT #400,aCRS 
FCNT 

BIT #40000, aCRS 
FTEST 

INC CNTCRD 
LASTCK 

CMP ee 
ALLDON 

JSR %7,CKBIT8 
FADJ 


JSR %7,NXCRD 


;DATA ery, “se 


FPRINT: 


NOHD: 


NCTCOL: 


SUB PTOFF ,RS 
MOV (R5)+,R2 


JSR ie ,PROCT 


BIT 
BNE 
JMP NOTCD 


-. 
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SEQ 0030 


;CHECK FOR HALT ON ERROR 
;BRANCH IF HALT ON ERROR NOT SET 
;HALT ON ERROR SET 


;CHECK FOR CARD DONE 


; COUNT CARD 
; INHIBIT PRINTOUT AFTER CARD DONE SET 


;WAIT FOR OFF-LINE TO CLEAR 
;MAKE PROPER ADJUSTMENT AND GET 
:NEXT CARD 


; SOMETHING WRONG RCB 

;TEST FLAG FOR PREVIOUS PRINTOUT 
Saf Set, 
;SET FLAG 

;OUTPUT HEADING FOR DATA ERROR PRINTOUT 
;OUTPUT TYPE OF DECK 


DON'T OUTPUT HEADING 


;OUTPUT CARD NUMBER WHERE ERROR OCCURRED 


;OUTPUT COLUMN NUMBER WHERE ERROR OCCURRED 


; SUBTRACT OFFSET FROM POINTER TO POINT TO 
;ADDRESS OF DESIRED PATTERN 
;OUTPUT CORRECT DATA PATTERN (NOT ENCODED) 


;OUTPUT DATA READ ON FIRST READING OF BUFFER 


;OUTPUT DATA READ ONE MILLISECOND LATER 


;OUTPUT CORRECT DATA PATTERN (ENCODED FORM) 


;OUTPUT DATA READ (ENCODED) 


;CHECK FOR CARD DONE 


: INTERRUPT NOT gi TO ERROR OR COLUMN READY 
#40000,aCRS 
i$ :BRANCH IF SET 
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006422 18: CMP COLSIZ.CLCNT | ;CHECK COLUMN COUNT 
BEQ +6 “SKIP ERROR HALT IF 40 OR 80 COLUMNS WERE READ 
HLT “LESS THAN 40 OR 80 COLUMNS WERE READ 
000462 BIT #10,aSR “CHECK SR 
BEQ LASTCK “SKIP IF CLEAR 
INC CNTCRD “COUNT CARD 
006424 CMP CNTCRD,DEKSIZ ALL CARDS? 
NUMCRD=. = 
BLOS _ LASTCK :SKIP IF OK 
MFPS ——- PRIOR 
011246 BIS #200,PRIOR 
MTPS —- PRIOR 
HLT -MORE THAN 3 DATA CARDS READ 
006420 LASTCK: CNP DEKSIZ,CDCNT CHECK FOR LAST CARD 
BIT #400,aCRS “CHECK FOR OFFLINE 
BEQ = “WAIT 
JMP OFFSET : DONE 
1$: MP FADJ “ADJUST POINTER AND PROCEED 
LASTWT: MFPS — PRIOR 
011246 BIS #200,PRIOR 
MIPS PRIOR 
TST SWTHR “CHECK PASS SW 
BNE 1$ “SKIP 'F PASS 1 
004460 CMP NUMCRD.CNTCRD  :CORRCCT NUMBER OF CARDS? 
BLOS~=ss«és0S “SKIP IF OK 
HLT “NOT ENOUGH DATA CARDS READ 
1$: CLR # 
LACNT=.-2 
DEC LACNT 
BNE or 
DEC LACNT 
BNE _~4 
DEC LACNT 
BNE om 
DEC LACNT 
BNE ~4 
BIT #400, aCRS 
BEQ +6 
JMP ALLDON 
LASTCD: CMP (SP)+,(SP)+ =RESTORE STACK 
JSR 47 BELL “RING BELL TO SIGNIFY ‘PASS COMPLETE’’ 
000256 BIT #40,aSR “CHECK SR FOR CONT INUAT ION TO ANOTHER DECK 
BNE +6 “BRANCH TO HALT IF SWS SET 
JMP DECKCK “CONTINUE TO ANOTHER DECK 
JSR PC, CRLF 
JSR PC GTSWR . 
-WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SW6 FOR TYPE 
“OF TESTING TO BE 2PERFORMED 
DECKCK: COM FLG -TOGGLE TRACE FLAG 
000226 BIT #100, asR -CHECK SW6 
BEQ 1$ “BRANCH JF NOT SET 
MOV #STACK,SP “ADJUST STACK 
JMP RESTRT “RERUN COMBINED INSTRUCTION AND DATA TEST 


SEQ 0031 
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004737 
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006426 
006430 
000166 
006426 
006430 


000142 


011246 


1$: 


3$: 


NOTCD: 


NOTCD1: 


CLR FLAG 
MOV #40.,COLSIZ 
MOV #39. ,COLM1 
BIT #4,aSR 
BNE 
ADD #40.,COLSIZ 
ADD #39. ,COLM1 
BIT #10,aSR 
BEQ 2$ 
JMP DATMK 
JMP DATST1 
NOP 
JSR PC,CKSWR 
BIT #1000,aCRS 
BNE 
BIC #2,aCRS 
INC acRS 
INC CDCNT 
CLR CLCNT 
RTS 47 
; INTERRUPT NOT CAUSED BY ERROR, 
JSR PC,CKSWR 
MFPS PRIOR 
BIS #200,PRIOR 
MTPS PRIOR 
BIT #2000,aCRS 
BNE NOTCD1 
HLT 
JMP LASTCK 
HLT 
JMP LASTCK 
0 
0 
0 
0 
0 
0 
0 
0 
0 
30. 
80. 
y 
177570 
0 
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0 
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;NO TABLE INDEXING NEEDED 
+ SETUP FOR 40 OR 80 


 SR2=1 FOR 40 COL 


;CHECK FOR MARK SENSE TEST 
;NOT THER 


;GO TO M.S. ENTRY POINT 


;ALL CARDS ARE NOT IDENTICAL 
;ADJUSTMENT IS DONE IN ISR3T 
:GET SOFTWARE SWITCH 


“KEEP TRACK OF CARD NUMBER 
“INITIALIZE COLUMN COUNT 


;RETURN 
COLUMN READY, OR CARD DONE 


;TEST ON-LINE TRANSITION BIT 
;BRANCH IF SET 

;NO BITS ~ TO CAUSE AN INTERRUPT 
;START NEXT CARD 

[ON-LINE TRANSITICN CAUSED AN INTERRUPT 
;START NEXT CARD 


;POINTER TO LITERAL ‘‘ALPHA’’ OR ‘BINARY*’ 


;LOOP (TIME) COUNTER 


; INDICATES DECK MUST BE INDEXED @START 
74 OF PASSES THROUGH DECK DONE 
:STARTING ADDRESS OF DATA TABLE 

; END ADDRESS OF DATA TABLE 

;NUMBER OF CARD BEING READ 
;NUMBER OF COLUMN BEING CHECKED 


;DATA ON FIRST READ FROM CRB1 

:DATA ON rine READ OF CRBI1 

:DATA READ FROM CRB2 

:OFFSET TO POINTER FOR DATA PRINTOUT 


;CURRENT TABLE STARTING POINT 


SEQ 0032 
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sALL CARDS DONE 
ALLDON: JSR PC, CKSWR 
WER %7.BELL :RING BELL 
177746 BIT #40,aSR “CHECK SR FOR HALT AT END OF DECK 
BEQ ALCNT -CONTINUE IF NOT SET 
177736 BIT #100,aSR : 
BNE 1$ ; 
JSR PC, CRLF 
JSR PC. GTSWR ; 
“END OF DECK,SWS SET 
1$: JMP DECKCK “CHECK FOR TYPE OF TESTING 
ALCNT: BIT #40000, aCRS “WAIT FOR CARD DONE 
CLR acRs :CLEAR ERROR 
BIT #156377,aCRS | :ONLY BITS 8, 9 AND 13 MAY STILI. BE SET 
“BIT 9 MAY BE SET SINCE CARD MAY NOT 
“YET HAVE CLEARED THE READER TO CAUSE 
=CARD DONE 
BFQ +4 “BRANCH IF OK 
HLT “STATUS REGISTER INCORRECT 
006406 MOV #20, CNTER1 -=LOAD OUTER COUNT 
006404 118: MOV #4000, CNTER “RUN A LOOP AND WAIT SOME TIME FOR BIT13 
BEQ 12$ :BR=BIT 13 (HOPPER CHECK) FAILED TO SET YET 
BIT #20000, aCRS -TEST BIT 13 SET 
BEQ 1$ “BR=13 NOT SET 
BR 3$ -0K GO ON 
12$: DEC CNTERT >:LOWER OUTER COUN 
BNE 11$ : {KEEP CHECKING A CNTER1=0 
23: HLT BIT 13 NOT SET 
3$: MFPS 
011246 BIS £200, PRIOR 
MIPS 
MEPS gADINT 
INCB CRS :ATTEMPT TO READ- SHOULD RESET ERROR 
TST SCRE “CHECK BIT T 15 
BM] ALLOK “BRANCH IF O 
HLT : SETTING READ DIDN'T RESET ERROR 
BR ALWAIT “BRANCH TO WAIT FOR ON-LINE 
ALLOK: MOV #SRVC1,@ADINT :LOAD INTERRUPT RETURN ADDRESS 
CLR PRIOR 
MTPS PRIOR 
MOV #101,aCRS : ENABLE INTERRUPTS, KEEP ERROR SET BY SETTING READ 
NOP “CLOCK IN INTERRUPT 
MIPS  2(ADINT) 
CLR aCRS :CLEAR INTERRUPT ENABLE AND ERROR 
HLT zs “BIT 15 DIDN'T CAUSE AN INTERRUPT 
SRVC1: CMP (SP) +, (SP)+ ;RESTORE STACK POINTER 
ALWAIT: BIC #100100, aCRS LEAR INTERRUPT ENABLE AND ERROR 
MOV #SRVC2,@ADINT  : CHANGE iNTERRUPT RETURN ADDRESS 
MOVB  #100.aCRS “ENABLE INTERRUPTS 
MFPS — PRIOR 
011246 BIC #200,PRIOR 
MTPS _— PRIOR 
BIT #400, aCRS -CHECK OFF-LINE BIT 
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001375 


000137 


023737 


000137 


004737 
004737 
012737 


104400 
005037 
004737 


000002 


010726 
002000 


000400 


030000 


002000 


006172 
006424 
011022 
006302 


000010 


006446 
006426 


006446 
010726 
000040 


006172 


006666 


001064 
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006420 


177364 


00642? 


177326 


011246 


011464 


——V—_—__—_—<—K—K—K<K#—$<=<F—<————————— oe me re ee ee em ew 


SRVC2: 


SRVCCA: 


s>WHEN INTERRUPT 
OFFSET: 


OFFS1: 


1$: 


OF FS2: 


; SETUP FOR ERROR Sot y TEST 
ERCM11: GAs 


TESTA 


MACY11 30A(1052) 


CMP 


JSR 
JS 
MOV 


CLR 
JSR 


<4 
2(ADINT) 
SRVC2A 


47, BELL 


(SP)+, (SP) + 
> ae ,aCRS 
+ 


#400,aCRS 
+4 
#30000,aCRS 
+4 

acrs 
#2000,aCRS 
+4 


(SP)+,(SP)+ 


DECKCK 


=. 
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SEQ 0034 
;LOOP UNTIL CLEAR 


;NO oly OCCURRED 
eae mee ROUND 


RING BELL 
RESTORE STACK POINTER 
BIT 10 


;BRANCH IF NOT SET 

;BIT 12 AND/OR 33 STILL SET IN CRS 
;DATO TO CRS 

;CHECK BIT 10 

:BRANCH IF NOT SET 

;DATO DIDN'T CLEAR ON-LINE BIT 
;RESTORE STACK FROM INITIAL INTERRUPT 
RESTART 


SERVICE WAS ENTERED, OFF-LINE (BIT 8) WAS SET 
ST CARD? 


a he CDCNT 
OFFS 


%7,CKBIT8 
%7,NXCRD 


4 oes 
1$ 


AL 


OF FS2 
DECKCK 


PRIOR 
#200, PRIOR 
PRIOR 
2(ADINT) 


ALWAIT 


PC ,CKSW 


WTESTA®?, RE TURN 
; THE ~ READER GOING OFF-LINE 
SCOPE 


]TMA 
17. INIT 


ee em ee ee ee = wee ss re eee ee > ~~) 


LDON 
cOLSIZ, »CLCNT 
ALLDON 


%7,BELL 
#40,aSR 


- YES=BRANCH 
-NO,OFF=LINE SET BUT NOT 80TH CARD 


; MARK SENSE ? 

; NO 

YES 

;LAST COLUMN? 


OVER 
; UN END OF DECK ROUTINE 
“OFF-LINE SEi BEFORE LAST COLUMN OF LAST CARD 


;HALT AT END OF DECK SET 
; START NEW DECK 


; INITIALIZE REGISTERS 


>SETUP SCOPE LOOP RETURN ADDRESS 
SHOULD SET SPECIAL CONDITION (BIT 15) AND OFF-LINE (BIT 


;RUN EACH ERROR TEST ONCE ONLY 
: INITIALIZE STATUS REGISTER 


a EE LL LTT 


24, 


24, 
24, 


24, 


24, 


24, 


24, 


24 


24 


a 


co 
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woe oe Re 
TOUT 


PC’ TTSTAL 
#400, acrs 


acRS 
+4 
#MSG1,R2 


%7,TOUT 


PC, TTSTAL 


J 3 
04-AUG-81 


09:08 PAGE 15-20 

SEQ 0035 
:""PRESS CARD READER ‘'HALT' AND WAIT FOR THE RESET LIGHT 
;T0 LIGHT" 


; ‘THEN HIT 8 ar he on THE CONSOLE"’ 
:MOVE MESSAGE UP ON T 


iva FOR TT] 


; IF SET 
:OFF=LINE (BIT 8) WASN'T SET 
;CHECK BIT 15 

:BRANCH IF SET 

;BIT 15 WASN'T SET 

;' ‘PRESS CARD READER ‘RESET’ AND WAIT FOR THE RESET LIGHT 
;T0 GO OUT” 


;° ‘THEN HIT ‘CONTINUE’ . THE CONSOLE*’ 
:MOVE MESSAGE UP ON TT 


sWAIT FOR TTI 


; INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION 
Tl ore “wes READER IT SHOULD ALSO SET CARD SUPPLY ERROR 


H 
RESETB: 


PC, ,TTSTAL 
#400, acrs 


aCRS 

+4 
#20000,aCRS 
+4 


#MSG6,R2 


; INITIALIZE STATUS REGISTER 
; REMOVE ALL CARDS FROM THE INPUT HOPPER’’ 


;‘‘THEN HIT ‘CONTINUE’ ON THe CONSOLE’’ 
;MOVE MESSAGE UP ON TTY 


;WAIT FOR TTI 
;CHECK BIT8 
;BRANCH IF SET 
;OFF-LINE (BIT &) WASN'T SET 
;CHECK SPECIAL CONDITION BIT 
>BRANCH IF SET 
; SPECIAL willie NOT SET 

T BIT 13 


; IF SET 
;CARD SUPPLY ERROR WASN‘T SET 
;’ RESTORE CARDS IN INPUT HOPPER’’ 


:""PRESS CARD READER ‘RESET’ AND WAIT FOR THE RESET LIGHT 


| 
24 
24 
24 
24 
24 
24 
24 
24 
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CVCMAA. SRC 07=JUL=81 09:06 SEQ 0036 CVCM, 

1811 007464 004737 011466 JSR PC, TOUT :T0 GO OuT"’ 
1812 007470 O12702 012725 MOV #MSG2,R2 -""THEN HIT ‘CONTINUE’ ON THE CONSOLE'’ 24) 
1813 007474 004737 011466 JSR %7, TOUT 
1814 007500 004737 011544 JSR %7, CRLF :MOVE MESSAGE UP ON TTY 
1815 75046 004737 011544 JSR %7,CRLF 
1816 007510 004737 011544 JSR %47,CRLF 
1817 007514 004737 011544 JSR %7, CRLF 
1818 007520 004737 011612 JSR PC. TTSTAL -WAIT FOR TTI 3h 
1820 OUTPUT STACKER FULL SHOULD SET BIT 15, AND IN THE PDI READER IT SHOULD ALSO SET BIT 13 24: 
1821 007524 104400 TESTC: SCOPE 24 
1822 007526 004737 010674 JSR %7, INIT : INITIALIZE STATUS REGISTER | 24: 
1823 007532 012702 013177 MOV #MSG7,R2 -""RAISE THE OUTPUT STACK HEIGHT ARM 24 
1824 007536 004737 011466 JSR %7, TOUT : 24 
1825 007542 012702 012725 MOV #MSG2 ,R2 -""THEN HIT ‘CONTINUE’ ON THE CONSOLE'' 24 
1826 007546 004737 011466 JSR %7, TOUT 24 
1827 007552 004737 011544 JSR %7, CRLF -MOVE MESSAGE UP ON TTY 24 
1828 007556 004737 011544 JSR %7,CRLF 24 
1829 007562 004737 011544 JSR %7, CRLF | 24 
1830 7566 004737 011544 JSR %47,CRLF 24 
1831 007572 004737 011612 JSR PC, TTSTAL -WAIT FOR TTI 24 
1832 007576 032713 000400 BIT #400, acrs :CHECK BIT 8 24 
1833 007602 001001 BNE -BRANCH IF SET 24 
1834 007604 104000 HLT -OFF=LINE (BIT 8) WASN'T SET 24 
1835 007606 005713 TST acrs CHECK SPECIAL CONDITION BIT 24 
1836 007610 100401 BM] +4 “BRANCH IF SET 24 
1837 007612 104000 HLT :SPECIAL CONDITION NOT SET 24 
1838 007614 032713 020000 BIT #20000,aCRS :YES, TEST BIT 13 24 
1839 007620 001001 BNE +4 >CONTINUE IF SET 24 
1840 007622 104000 HLT -CARD SUPPLY ERROR WASN'T SET 24 
1841 007624 012702 012632 RSETC: MOV #MSG1,R2 24 
1842 007630 011466 JSR %7, TOUT :"PRESS CARD READER ‘RESET’ AND WAIT FOR THE RESET LIGHT 24 
1843 007634 012702 013013 MOV #MSG24 ,R2 24 
1844 007640 004737 011466 JSR PC, TOUT :''TO GO OUT’’ 24 
1845 007644 012702 012725 MOV #MSG2,R2 24 
1846 007650 0047 011466 JSR 47, T0Ui :''THEN HIT "CONTINUE" ON THE CONSOLE’’ 24 
1847 007654 004737 011544 JSR %7,CRLF MOVE MESSAGE UP ON TTY 24 
1848 007660 0047 011544 JSR %17,CRLF 24 
1849 7664 004737 011544 JSR %7,CRLF 24 
1850 007670 004737 011544 JSR 47, CRLF 24 
1851 007674 004737 011612 JSR PC, TTSTAL -WAIT FOR TTI 24 
1852 ;FEED ERROR SHOULD SET BIT 15, AND IN THE PDI CARD READER IT 24 
4 2d, ;SHOULD ALSO SET BIT 12 $2 
1855 007700 104400 TESTD: SCOPE 24 
1856 007702 004737 010674 JSR PC, INIT : INIT STATUS REGISTER 24 
1857 7706 012702 013737 MOV #MSG26,R2 24 
1858 007712 004737 011466 JSR PC, TOUT :"PLACE PRESSURE ON CARDS IN THE INPUT HOPPER 24 
1859 007716 012702 014015 MOV #MSG27,R2 24 
1860 007722 004737 011466 JSR PC, TOUT :TO INHIBIT A NORMAL FEED’’ 24 
1861 007726 004737 011544 JSR PC, CRLF :MOVE MESSAGE UP ON TTY 24 
1862 007732 004737 011544 JSR PC, CRLF 26 
1863 77 004737 011544 JSR PC,CRLF 24 
1864 007742 005000 CLR 24 
1865 007744 012701 000024 MOV #20.,R1 24 
1866 007750 005200 11$: INC 24 

| 
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007752 
007754 
007756 
007760 
007764 
007766 
007772 


olelelel el a) 
and anh anh and and aah 


eecse 
83339 
ESRS 


Wi s&s & & 
VROROS 


006302 
000024 


Soooo0o00o0 GoeO0o°o 
abet aah ab anbanBand aud and and and 


oo 
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Ou 
— 
ros 


010726 


007162 
007160 


001064 
011626 


176260 
000002 


011462 


000000 
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YM=7110A=AA MACY11 30A(1052) 
BNE 11$ 
DEC R1 
BNE 11$ 
JSR PC ,NXCRD 
CLR RO 
MOV #20.,R1 
12$: TST acR 
BM] 13$ 
INC 0 
BNE 12$ 
DEC R1 
BNE 12$ 


011464 


010220 
010220 
011460 
011464 


BNE 14$ 
BIT #10000,aCRS 
BNE 15$ 
HLT 

15$: 

RSETD: MOV #MSG30,R2 

SR PC, TOUT 

MOV #MSG1,R2 
JSR PC, TOUT 
MOV #MSG24 ,R2 
JSR PC, TOUT 
MOV #MSG2 ,R2 
JSR PC, TOUT 
JSR PC,CRLF 
JSR PC,CRLF 
JSR PC,CRLF 
JSR PC,CRLF 
JSR PC, TTSTAL 

TESTG: SCOPE 
JSR %47,BELL 
HALT 


2 
04-AUG=81 


MOV #TESTA+2 ,RETURN 
TESTA 
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SEQ 0057 
7 STALL 

;PICK A CARD 

;SKIP IF ERROR IS SET 


;FEED ERROR DID NOT SET BIT 15 


; CHECK BIT 12 
KIP IF SET 
FEED ERROR DID NOT SET BIT 12 


;'"RESTACK CARDS IN INPUT HOPPER 


sPRESS CARD READER "RESET" AND WAIT 
;FOR THE ‘RESET LIGHT 


;TO GO OuT’’ 


;‘"THEN HIT ‘CONTINUE’ ON THE CONSOLE’ 
:MOVE MESSAGE UP ON 1 £ CONSOLE 


;WAIT FOR TTI 
7 IF ore RING BELL AND 


HALT 
:SETUP SCOPE LOOP RETURN ADDRESS TO LOOP THRU TESTS 
; START ERROR TESTS OVER ON CONTINUING 


;ROUTINE TO LOOP THRU A SINGLE tok ob tat TEST 


:NOTE. THAT SW11 MUST 
TESTX: JSR 7, 
JSR PC, CKSWR 


MOV @SR,RETRNX 

ADD #2,RETRNX 

HALT 

CLR ITCNT 

MOV #4000, 1 TMAX 

MOV #XLOOP ,RE TURN 

JMP @RE TRNX 
XLOOP: CLR ITCNT 

MP @RE TRNX 
RETRNX: 0 


BE DOWN AFTER 2ND HA 
ETUP 


SETUP POINTERS AND FLAGS 

;WAIT FOR STARTING ADDRESS 

;STORE STARTING ADDRESS 

:CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION 
;SET SR OPTIONS (BIT 1% MUST = 0) 

:CLEAR ITERATION COUNTER 

; LOAD 7a teat ADDRESS 


oJ 
;KEEP Ue apt COUNTER AT ZERO 
; JUMP TO TEST 
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004737 
004737 


011437 


07=JUL=81 09:06 


000400 


010620 


040000 


000400 


010726 
000400 


006426 


006434 
006422 


000100 


0064 36 
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010622 
010622 


006422 
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ah a: TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED. 
THIS ROUTINE ALLOWS SPECIFIC TYPES OF DATA FAILURES TO BE STUDIED 


ASILY. _THE ROUTINE HALTS ONCE AT THE START. 


SET THE CORRECT CARD 


‘IMAGE PATTERN IN SW11-SWOO, THEN HIT CONTINUE (AFTER THE DECK 


;EACH CO AC 
;DISCREPANCY OCCURS, 


S ON-LINE). 
READ TWICE AND COMPARED WIT 
ERROR IS PRINTED OUT ALONG WITH THE TOTAL. 


IS 
THE PATTERN IS aitn Tf, wy THEN 


“NUMBER OF CARDS READ "AND THE TOTAL NUMBER OF DATA ERRORS DISCOVERED 


;UP TO THAT POINT (ALL PRINTOUTS ARE IN OCTAL). 


WHEN THE INPUT HOPPER 


;I1S EMPTY, THE ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE 


: LOADED AND THE CAR 
> SW15=1 
CKSAME: JSR %47,SETUP 
J PC,CKSWR 


MOV asR,CARDIM 
BIC #170000, CARDIM 
CLR TOTCRD 


CL 
CKLOOP: CLR NT 

BIT #400,aCRS 

BNE SIT 

INC acRs 

INC TOTCRD 
CKLP1: TSTB  aCRS 

BM] COL 

BIT #40000, aCRS 

BNE CKCRD 

TST acRs 

BPL CKLP1 

BIT #400,aCRS 

BNE KS] 

HLT 

BR CKLOOP 
CKSIT: JSR %47,.BELL 
CKSIT1: BIT #400. aC RS 

BNE CKS 

BR CK SOP 
CKCRD: CMP COLSIZ.CLCNT 

BEQ CKLOOP 

HLT 

BR CKLOOP 
CKCOL: MOV @CRB1,DAT1 

INC CLCNT 

TSTB = CFS 

BPL +6 

HLT 

BR CKLOOP 

MOV #100, COUNT 
CKLP2: DEC COUNT 

BNE 


CKLP2 
MOV aCRB1,DAT2 


;READING DBR 
;START NEXT CARD AFTER ERROR 


D READER TO BE PUT BACK NE. 
CAUSES A HALT AFTER AN ERROR, AND swi3= 1 INHIBITS ERROR PRINTOUTS. 


a POINTERS 


WAIT FOR CARD IMAGE PATTERN 
: STORE PATTERN 
:CLEAR UPPER BITS OF PATTERN 
: INITIALIZE core COUNT 
: INITIALIZE ERROR COUNT 
:CLEAR FLAG FOR PRINTING ERROR HEADING 
; INITIALIZE COLUMN COUNT 
:CHECK BIT 8 
BRANCH IF SET i FOR READER TO COME ON-LINE. 


;CHECK COLUMN READY 
:BRANCH IF SET 

; CHECK CARD DONE 

:BRANCH IF SET 

;CHECK SPECIAL CONDITION 

:LOOP It NOT SET 

; CHECK BIT 

:BRANCH IF SET TO WAIT FOR READER ON-LINE. 
:SPECIAL CONDITION SET, BIT 8 CLEAR 


;RING ati, 2 SIGNIFY READER OFF-LINE 


:CHECK BIT 
;LOOP IF STILL SET 
sSTART NEXT C 


; D 
:CHECK FOR ALL COLUMNS READ 
: START NEXT CARD IF OK 

FINAL oe COUNT WASN’T 40 OR 80 
® START NEXT CARD 
:READ DATA BUFFER 
;COUNT COLUMNS 
:CHECK COLUMN READY 

IF OK 


; BRANCH 
DIDN'T CLEAR READY 
:WAIT AWHILE 


;READ CRB1 AGAIN 


SEQ 0038 
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VMNMAM MAMA AA Ian 


a a a 


MAVIAAA AAA AAA 
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SSoowo 
~EKGep wae aa 
A 


So 
—_ 


SaPeaee 

= and 
RWRRG 

> PP 


000000 


004737 


000761 


000001 
000000 


006434 
0064 36 


011070 


3 


=—Ooo0dncdc0d0 
a i i ie ee ee eee eet 
We CO a tO 
ONO Onn Ory 


001064 
175574 
010670 
010672 
010672 


010670 
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010622 
010622 


175756 


010670 


B 
CKFAIL: 
B 


CKNOHD: 


CKHLT: 


CKDONE: 


TOTERR: 
TOTCRD: 


CARD IM: 


MACY11 30A(1052) 


0 


DAT1,CARDIM 
CKFAIL 
DAT2,CARDIM 
CKFAIL 


TOTERR,R2 
%47,PROCT 


me ee eee + ee ee 


N 95 
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; COMPARE FIRST DATA TO PATTERN 
:BRANCH IF FAILURE 


; COMPARE tr aac TO PATTERN 


:BRANCH IF 


AILU 
;WAIT FOR NEXT COLUMN OR END OF CARD 


; COUNT ERRORS 

:CHECK FOR INHIBITING PRINTOUT 
;BRANCH AROUND PRINTOUT IF SET 
;TEST FLAG TO PRINT HEADING 
:BRANCH IF ALREADY DONE 

:PRINT HEADING ONCE ONLY 
[OUTPUT HEADING 


;OUTPUT CARRIAGE RETURN, LINEFEED 

:PRINT COLUMN NUMBER 

;PRINT FIRST READING 

;PRINT SECOND READING 

;PRINT TOTAL NUMBER OF CARDS READ 

;PRINT TOTAL NUMBER OF DATA ERRORS 
; CHECK ee oF , or ON ERROR 


:BRANCH IF 
;HALT ON ERROR 
CONT 


; INUE 
;WAIT FOR SPECIAL CONDITION OR DONE 
:START NEXT CARD AFTER CHECKING BIT 8 


READ A CARD AND EXECUTE A PROGRAM 
:DELAY BEFORE READING ANOTHER CARD 
THIS. > AID IN eo ie FOR "PICK ERRORS‘ 


1$: 


2$: 


DLAYO: 
DLAY1: 
; ISSUE 


7 


0 
MES. ~— JF CARD READER 


aSR,DLAYO 
ac 


;SETUP POINTERS 
:WAIT FOR OPR. 
;READ SR 

:MOVE CARD 


;CLEAR SECOND COUNTER 
; DELAY 


;DELAY FINISHED ? 
:BR IF NOT 
;BR IF YES 


IS OFF=-LIME 
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CVCMAA. SRC 07=JUL=81 09:06 SEQ 0040 CVCMA 
2035 ;WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A CARD | 26! 
20 “INITIALIZE STATUS REGISTER’ AND USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY 266 
2037 “NOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS SET 2b¢ 
2038 010674 004737 011022 INIT: JSR %7,CKBIT8 -SEE IF OFF-LINE BIT IS SET 26¢ 
2039 010700 032715 001900 BIT #1600, acrs ;WAIT FOR BUSY TO CLEAR, IN CASE 26¢ 
2040 010704 001375 BNE .- CARD IS STILL BEING READ 266 
2041 010706 005013 CLR aCRS “INITIALIZE STATUS REGISTER 26¢ 
2042 010710 005714 TST acRB1 -READ DATA BUFFER TO CLEAR COLUMN READY | 266 
2043 010712 005713 TST acrs “MAKE SURE INITIALIZATION OK | 266 
2044 010714 001401 BEQ +4 “BRANCH IF ALL BITS ZERO 7 | 26¢ 
2045 010716 104000 HLT “NOT ALL BITS OF STATUS REGISTER ARE ZERO | 26 
s066 010720 000207 RTS 47 RETURN | 26: 
2048 : SUBROUTINE TO SAVE STATUS AND CLEAR T BIT 26, 
2049 010722 000240 CLRTR: NOP | 26; 
2050 010724 000207 RTS PC 26; 
2051 | 26; 
2052 *BELL ON PASS COMPLETE | 26; 
2053 010726 105777 170070 BELL: TSTB aTCSR -WAIT FOR TTY READY 26; 
2054 010732 100375 BPL _- 26, 
2055 010734 012777 000207 170062 MOV #207,aTDBR :RING BELL 26) 
2056 010742 013702 000042 MOV a#42,R2 26! 
2057 010746 001416 BEQ END 26! 
2058 010750 105777 170046 TSTB aTCSR | 26) 
2059 010754 100375 BPL - : 26) 
2 010756 012777 000000 170040 MOV #0,aTDBR 26) 
2061 010764 105777 170032 TSTB aTCSR 26: 
2062 010770 100375 BPL — ' 26) 
2063 010772 000005 RESET 26) 
2064 010774 004712 LOGIC: JSR 47, (R2) 26) 
2065 010776 000240 NC& 26) 
2066 011000 000240 NOP 26 
2067 011002 000240 NOP 26) 
2068 011004 105777 170012 END: TSTB aTCSR :WAIT FOR TTY DONE BEFORE LEAVING 26 
2069 011010 100375 BPL - 26 
2070 011012 012737 000001 011460 MOV #1, 1TMAX :MAKE CERTAIN ITERATION MAXIMUM IS CORRECT 26 
207) 011020 000207 RTS 17 > RETURN | 6 
2073 - SUBROUTINE TO CHECK FOR BIT 8 (OFF-LINE) BEING SET IN CARD | 26 
2074 > READER CSR. AND onint oul A MESSAGE IF IT IS | 26 
2075 011022 004737 011626 CKBITB: -GET SOFTWARE SWITCH REGISTER | 26 
2076 011026 032713 000400 air #500,80RS “CHECK BIT 8 27 
2077 011032 001001 BNE +4 sBRANCH IF SET 27 
2078 011034 000207 RTS 47 *RETURN IF NOT SET 27 
2079 011036 012702 013472. MOV #MSG18. R2 -OUTPUT MESSAGE 27 
2080 011042 004737 011466 JSR 47, TOUT ;;BIT 8 WAS S$ “ 27 
2081 011046 012702 013362 MOV #M5G17,R2 ;“REMEDY THE ERROR CONDITION 27 
2082 011052 004737 011466 JSR 417, TouT * AND PRESS * CONT INUE *’ 27 
2083 011056 004737 011612 JSR PC TISTAL -WAIT FOR TTI 27 
2084 011062 004737 011626 JSR PC, CKSWR -GET SOFTWARE REGISTER 27 
2085 011066 000755 BR CKBIT8 -CHECK AGAIN $f 
2087 : SUBROUT INE TO ISSUE N SPACES e7 
2088 N IS ONE PLUS VALUE CONTAINED IN SPACEX 27 
2089 -SPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON 27 
2090 “SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE SPACE 27 


B 
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CVCMAA. SRC 07-JUL=81 09:06 SEQ 0041 
05777 167726 SPACE: TSTB _— ;WAIT FOR TTY READY 


000240 167720 MOV #240,aTDBR ;OUTPUT A SPACE 
011120 DEC SPACEX ;DECREMENT COUNT 
;LOOP IF NOT DONE 
011120 CLR oo a4 A aaa TO ZERO 


RTS 
SPACEX: 0 


rv 
o 
lololol~lolol = 
— ss 8 SS 
— os SU 
at tt ts OOS 


we ONS 
SaNoKRaRS 


™m 
a= 
<8 


sENTERED WITH SYSTEM TRAP CALL (HLT) 
Se ints OUT THE ERROR PC AND STATUS REGISTER 
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21 
$108 
2104 011122 004737 011626 p : JSR PC, CKSWR *GET SOFTWARE SWITCH REGISTER 
2105 011126 032777 020000 175276 BIT #20000,aSR :TEST FOR INH. PNTOUT 
2106 011134 001401 BEQ +4 :BRANCH TO PRINT 
2107 011136 00043! BR B.CK : INHIBIT, CHECK FOR HALT 
2108 011140 012637 011242 MOV (6)+,  SAVPC ;:PC OF FAILING ROUTINE 
2109 011144 012637 011244 MOV (6)+,  SAVPSR ;:PSR OR ERROR CONDITION 
2110 011150 024646 CMP -(6), =(6) sRESTORE STACK 
2111 011152 006737 011544 JSR 417, CRLF “OUTPUT CARRIAGE RETURN, ‘LINEFEED 
2112 011156 010237 011234 MOV 12, SAVR2 =; SAVE R2 
2113 011162 013702 011242 MOV SAVPC, % 
2114 011166 004737 011250 JSR 17, PROCT  ;PRINT PC+2 IN OCTAL 
2115 011172 105777 167624 TSTB = aTCSR “WAIT FOR TTY READY 
2116 011176 100375 BPL - 
2117. 011200 012777 000240 167616 MOV #240,  a@TDBR  ;OUTPUT A SPACE 
2118 011206 013702 011244 MOV SAVPSR, %2 
2119 011212 004737 011250 JSR 47, PROCT = :PRINT PROCESSOR STATUS AT TIME OF FAILURE 
2120 011216 013702 011234 MOV SAVR2, %2 *RESTORE REGISTER 2 
2121 011222 005777 175204 B.(K: TST asR *CHECK SR FOR HALT SWITCH 
2122 011226 100001 BPL +4 *BRANCH IF NOT SET 
2123 011230 000000 HALT -HALT ON ERROR UP 
2124 011232 000002 RTI -RETURN TO MAIN LINE 
2125 011234 000000 SAVR2: 0 
2126 011234 000000 SAVR3: 0 
2127 011240 000000 SAVR4: 0 
2128 011242 00000 SAVPC: 0 
2129 011244 000000 SAVPSR: 0 
2130 011246 0000 PRIOR: 
2132 011250 010337 011236 PROCT: MOV 13, SAVR3 :SAVE R3 
2133 011254 010437 011240 MOV 14, SAVR4 *SAVE RG 
2134 011260 005004 | CLR 14 :CLEAR R4 TO USE AS COUNTER 
2135 011262 005001 CLR COUNT :CLEAR COUNT TO USE AS CARRY FLAG 
2136 011264 012703 000260 MOV #260, %3 -SETUP ASCII ZERO IN R 
2137. 011270 005702 TST %2 -CHECK BIT 15 OF DESIRED NUMBER 
2138 011272 100001 BPL +4 *BRANCH IF NOT SET 2/7 
2139 011274 005203 INC 13 “CHANGE TO ASCII ONE e7 
2140 011276 006102 ROL 12 “ROTATE INTO RIGHTMOST BIT 27 
2141 011300 006102 ROL %2 :T0 PREPARE FOR LOOP e/ 
2142 011302 005501 ADC COUNT :STORE CARRY $! 
2143 011306 105777 167512 C.WAIT: TSTB  aTCSR “WAIT FOR TTY READY / 
2144 011310 100375 BPL C.WAIT 2/ 
2145 011312 010377 167506 MOV 13, @TDBR ;OUTPUT ASCII é/ 
2146 011316 005204 INC 14 *COUNT CHARACTERS OUTPUT 2) 
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2147 011320 020427 000006 CMP %4, #6 :CHECK FOR DONE 
2148 011324 001005 BNE C. CONT “BRANCH IF NOT DONE 
2149 011326 013703 011236 MOV SAVR3, %3 “RESTORE REGISTER 3 
2150 011332 013704 011240 MOV SAVRG , %4 “RESTORE REGISTER 4 
2151 011336 000207 RTS 47 RETURN 
2152 011340 000241 C.CONT: CLC “CLEAR CARRY 
2153 011342 005701 TST COUNT “TEST CARRY FLAG 
2154 011344 001402 BEQ . +6 “BRANCH IF NOT SET 
2155 011346 005001 CLR COUNT “CLEAR FLAG 
2156 011350 000261 SEC -SET CARRY 
2157 011352 006102 ROL %2 “ROTATE NEXT 3 BITS INTO RIGHTMCST 3 
2158 011354 006102 ROL %2 
2159 011356 006102 ROL %2 
2160 011360 005501 ADC COUNT :STORE CARRY 
2161 011362 010203 MOV %2 %3 “MOVE DATA FOR OUTPUT 
2162 011364 042703 177770 BIC #177770,%3 “CLEAR ALL BUT RIGHTMOST 3 BITS 
2163 011370 052703 000260 BIS #260, %3 “SET TO ASCII EQUIVALENT 
2164 011374 000743 BR C.WAIT = LOOP 
2165 -SCOPE AND/OR ITERATION LOOP FOR EACH TEST 2 TIMES 
2166 011376 004737 011626 SCOPEC: JSR PC, CKSWR 
2167 011402 032777 040000 175022 BIT #40000,aSR -TEST SR FOR SCOPE 
2168 011410 001012 BNE D. : YES, SCOPE 
2169 011412 032777 004000 175012 BIT #4000,aSR “NO= TEST FOR ITERATION 
2170 011420 001012 BNE D.2 > INHIBIT ITERATION 

2171 «011422 023737 011462 011460 CMP ITCNT, 1 TMAX “CHECK FOR ITERATIONS COMPLETE 

. 2172 011430 100006 BPL D.2 *EXIT=DONE 
2173 011432 005237 011462 INC ITCNT “ INCREMENT COUNT 
2174 011436 022606 D.1: CMP (6)+, %6 “REPOSITION STACK POINTER 
2175 011440 106426 MIPS (6)+4 
2176 011442 000016 JMP @RE TURN :RETURN TO RERUN TEST 
2177 011446 005037 011462 D.2: CLR ITCNT =CLEAR COUNTER 
2178 011452 011637 011464 MOV a%6, RETURN :SAVE SCOPE RETURN POINTER 
2179 011456 000002 RT] *RETURN INLINE-NEXT TEST 
2180 011460 000001 ITMAX: 1 *MAX NUMBER OF ITERATIONS 
2181 011462 000000 ITCNT: O “COUNT LOCATION FOR ITERATION LOOP 
2182 011464 001402 RETURN: TEST142 “ADDRESS OF LAST TEST 
2184 -MOV ADDRESS OF MESSAGE TO REGISTER 2 
2185 -THEN JSR %7, TOUT 
5186 011466 142777 000177 167326 TOUT: BICB #177, aTCSR  ;CLEAR INT FLAG 
2187 011474 111237 011542 MOVB = a2, L.EOMK ;:MOVE IN EOM MARKER 
2188 011500 005202 L.INC: INC %2 *MOVE DATA POINTER TO NEXT BYTE 
2189 011502 121237 011542 L.TOUT: CMPB = a2, L.EOMK :COMPARE FOR EOM 
2190 011506 001001 | BNE +6 “BRANCH IF NOT END OF MESSAGE 
2191 011510 000207 RTS £7 =RETURN IF 
2192 011512 121227 000100 CMPB ss 2 sa *CHECK FOR CR,LF REQUEST 
2193 011516 001003 BNE +1 “BRANCH IF NOT 
2194 011520 004737 011544 JSR £7. CRLF “OUTPUT CARRIAGE RETURN, LINEFEED 
2195 011524 000765 BR L. INC - LOOP 
2196 011526 105777 167270 TSTB ~=—s-_ @TCSR “WAIT FOR TTY 
2197 011532 100375 BPL 6 
2198 011534 112277 167264 MOVB (2)+, @TDBR ;OUTPUT NEXT CHARACTER 
2199 011540 760 BR L. TOUT > CONT JNUE 
2200 011542 000000 L.EOMK: 0 
2202 : SUBROUTINE TO ISSUE CARRIAGE RETURN AND LINEFEED 

/ 
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CVCMAA.SRC =: 07=JUL=81 09:06 SEQ 0043 
2203 011544 105777 167252 CRLF: TSTB  aTCSR -WAIT FOR TTY READY 
2206 011550 100375 BPL - 
2205 011552 112777 000215 167244 MOVB #215, a@TDBR  ;SEND CARRIAGE RETURN 
2206 011560 105777 167236 TSTB ~— aTCSR “WAIT FOR TTY 
2207 011564 100375 BPL <4 
2208 011566 112777 000212 167230 MOVB #212, @TDBR  ;SEND LINE FEED 
2209 011574 105777 167222 TSTB. ~— aTCSR 
2210 011600 100375 BPL - 
2211 011602 012777 000000 167214 MOV #0,aTDBR -OUTPUT FILLER 
2212 011610 000207 RTS %7 > RETURN 
e214 :ROUTINE TO WAIT FOR A CONSOLE KEY TO BE HIT 
2216 011612 TTSTAL: 
2217 011612 105777 167200 TSTB  a@KBCSR :WAIT FOR 
2218 011616 100375 BPL TTSTAL “KEYBOARD INPUT 
2219 011620 005777 167174 TST @KBUF “CLEAR FLAG 
2220 011624 000207 RTS PC *EXIT 
2221 
2222 4 
2223 > *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
2224 > *ROUTINE 1S ENTERED FROM TRAP HANDLERR,AND WILL 
2225 = *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
2226 : -*WHEN OPERATING IN TTY FLAG MODE. 
2227 011626 022737 000176 006432 CKSWR: CMP #SWREG, SR -1$ THE SOFT=SWR SELECTED? 
2228 011634 001105 BNE K15 -BRANCH IF NO 
2229 011636 105777 167154 TSTB = @TKS >CHAR THERE? 
2230 011642 100102 BPL K15 : IF NO,DON'T WAIT AROUND 
2231 011644 117746 167150 MOVB = aTKB,-(SP) :SAVE THE CHAR 
2232 011650 042716 177600 BIC #°C177, (SP) “STRIP OFF THE ASCII 
2233 011654 022726 000007 CMP #7, (SP)+ :1$ IT A CONTROL G? 
2234 011660 001073 BNE K15 -NO RETURN TO USER 
2235 011662 123727 001046 000001 CMPB = AUTOB, #1 “ARE WE RUNNING IN AUTO-MODE? 
2236 011670 001467 BEQ K15 “BRANCH IF YES 
2237 011672 012702 012157 MOV #CNTLG,R2 ; 
2238 011676 004737 011466 JSR PC, TOUT : 
2239 011702 012702 012164 GTSWR: MOV #MSWR RZ “TYPE CURRENT CONTENTS 
2240 011706 004737 011466 JSR PC, TOUT : 
2241 011712 013746 000176 MOV SWREG, ~ (SP) “SAVE SWREG FOR TYPEOUT 
2242 011716 004737 012240 JSR PC, TYPOC -GO TYPE-OCTAL ASCII(ALL DIGITS) 
2243 011722 012702 012173 MOV #MNE WR : 
2244 011726 004737 011466 JSR PC, TOUT ; 
2245 011732 005046 K19: CLR -(SP) -CLEAR COUNTER 
2246 011734 005046 CLR -(SP) “NEW SWR 
2247 011736 105777 167054 K7: TSTB. =—s_ @TKS “CHAR THERE? 
2248 011742 100375 BPL K7 - JF NOT TRY AGAIN 
2249 011744 117746 167050 MOVB  aTKB,-(SP) -PICK UP CHAR 
2250 011750 042716 177600 BIC #°C177. (SP) -MAKE IT 7-BIT ASCII 
2251 011754 021627 000025 K9: CMP (SP) #25 -1T IS A CONTROL-U? 
2252 011760 001007 BNE K10 “BRANCH IF NOT 
2253 011762 012702 012152 MOV #CNTLU_R2 
2254 011766 004737 011466 JSR PC, TOUT : 
2255 011772 062706 000006 K20: ADD #6,SP > ]GNORE PREVIOUS INPUT 
2256 011776 000755 BR K19 “LET*S TRY IT AGAIN 
2257 012000 021627 000015 K10: CMP (SP) #15 -1$ IT A <CR>? 
2258 012004 001022 BNE K16 “BRANCH IF NO 
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027507 
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027440 


MACY11 30A(1052) 


K11; ADD 
; TTY INPUT ROUTINE 


K14: 


K15: 
K16: 


K1/7: 
K18: 


TTYN: 


CNTLU: 
CNTLG: 


MSWR: 
MNE W: 


1d 
LF 
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SEQ 0044 
TST 4 (SP) >YES,IS IT THE FIRST CHAR? 
BEQ K11 : BRANCH IF YES 
OV 2(SP),aSR ;SAVE NEW SWR 
#10,SP ;CLEAR UP STACK 
SR PC ,CRLF :ECHO <CR> AND <LF> 
CMPB INTAG,A1 :RE-ENABLE TTY KBD INTERRUPTS 
BNE K15 ;BRANCH IF NOT 
MOV #100,aTKS :RE-ENABLE TTY KBD INTERRUPTS 
RTS PC ;RETURN 
JSR PC,TYPEC ;ECHO CHAR 
CMP (SP) ,460 >CHAR < 0? 
BLT K18 “BRANCH IF YES 
CMP (SP) ,467 :CHAR > 7? 
BGT K18 ;BRANCH IF YES 
BIC #60, (SP) + :STRIP-OFF ASCII 
TST 2(SP) :;1S THIS THE FIRST CHAR 
BEQ K17 - BRANCH IF YES 
ASL (SP) NO SHIFT PRESENT 
ASL (SP) ;CHAR OVER TO MAKE 
ASL (SP) ;ROOM FOR NEW ONE 
INC 2 (SP) ;KEEP COUNT OF CHARACTER 
BIS -2(SP), (SP) ;SET IN NEW CHAR 
BR K7 ;GET THE NEXT ONE 
MOV MQUES,R2 ;TYPE ?<CR><LF> 
JSR PC. TOUT 
BR K2 ;SIMULATE CONTROL<-U 
BLKBi2. ;RESERVE 12 BYTE FOR TTYT 
;Y INPUT 

ASCII 3/a@*U/; :CONTROL ‘U"’ 
ASCII ;/8*G/; : CONTROL ‘'G’’ 
ASCII ;/SWR= /; 
-ASCII ;/@ NEW = / 
eASCII ;/87/; hn yt HE MARK 

ASCIZ <12> LINE FEED 


AR 05. FR), A ORO ~~~ FA Rn re 


;THIS ROUTINE IS USED TO CHANGE A dg pt BINARY NUMBER TO 
;*A 6-DIGIT OCTAL (ASCII) NUMBER AND TYPE IT 
:*TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF 


:*DIGITS TO TYPE 


;* CALL 


» = ® 


V NUM , - (SP) ;NUMBER TO BE TYPED 

TYPOS -CALL FOR TYPE OUT 

BYTE “N=1 TO 6 FOR NUMBER OF DIGITS 
:*T0 TYPE . 

* 


:M=1 OR O 
:1=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


SS ——_—s « —_ —_ eee eee 
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CVCMAA.SRC = 07=JUL=81 09:06 SEQ 0045 
| 2313 : *TYPON===-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS 
| 2314 = THE LAST 

2315 -*TYPOS OR TYPOC 

2316 :*CALL: 

2317 :* MOV NUM ,=(SP) sNUMBER TO BE TYPED 
| $2i8 ;* TYPON sCALL FOR TYPEOUT 

** 

2320 “#TYPOC===ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

2321 s*CALL: 

2322 Z MOV NUM, = (SP) :NUMBER TO BE TYPED 

2323 s@ TYPOC sCALL FOR TYPEOUT 

2324 EVEN 

2325 012214 017646 000000 TYPOS: MOV a(SP),-(SP) s;PICKUP THE MODE 

2326 012220 116637 000001 012445 MOVB 1(SP),FILLO  :LOAD ZERO FILL SWITCH 

2327 012226 112637 012447 MOVB  (SP)+,MODE0+1 ;NUMBER OF DIGIT TO TYPE 

2328 012232 062716 000002 ADD #2, (SP) :ADJUST RETURN ADDRESS 

2329 012236 000406 BR TYPON 

2330 012240 112737 000001 012445 TYPOC: MOVB  4#1,FILLO -SET THE ZERO FILL SWITCH 

2331 012246 112737 000006 012447 MOVB #6.MODE0+1 “SET FOR SIX(6) DIGITS 

2332 012254 112737 000005 012444 TYPON: MOVB  #5.CNTO “SET THE ITERATION COUNT 

2333 012262 010346 MOV R3,=-(SP) “SAVR R3 

2334 012264 010446 MOV R4.=(SP) “SAVE RG 

2335 012266 010546 MOV R5,-(SP) “SAVE RS 

2336 012270 113706 012447 MOVB MODE0+1,R4 s;GET THE NUMBER OF DIGIT TO TYPE 

2337 012274 005404 NEG R4 

2338 012276 062704 000006 ADD #6, RS :SUBSTRACT IT FOR MAX.ALLOWED 

2339 012302 110437 012446 MOVB  R4,MODEO “SAVE IT FOR USE 

2340 012306 113704 012445 MOVB  FILLO,R4 “GET THE ZERO FILL SWITCH 

2341 012312 016605 000010 MOV 10(SP) RS “PICK UP THE INPUT NUMBER 

2342 012316 005003 CLR R3 =CLEAR THE OUTPUT WORD 

2343 012320 006105 Al: ROL R5 “ROTATE MSB INTO ‘'C’' 

2344 012322 000404 BR A3 -GO TO M 

2345 012324 006105 A2: ROL R5 “FORM THIS DIGIT 

2346 012326 006105 ROL R5 

2347 012330 006 ROL R5 

2348 012332 010503 MOV R5,R3 

2349 012334 006103 A3: ROL R3 -GET LSB OF THIS DIGIT 

2350 012336 105337 012446 DECB § MODEO “TYPE THIS DIGIT? 

2351 012342 100024 BPL A :BR IF NO 

2352 012344 042703 177770 BIC #177770.R3 >GET RID OF JUNK 

2353 012350 001002 BNE AG “TEST F 

2354 012352 005704 TST R4 -SUPPRESS THIS 0? 

2355 012354 001403 BEQ A5 -BR IF YES 

2356 012356 005204 Ad: INC RG -DON'T SUPPRESS ANYMORE 0'S 

2357 012360 052703 000060 BIS #°0,R3 :MAKE THIS DIGIT ASCII 

2358 012364 052703 000040 AS: BIS #' “R3 “MAKE ASCII IF NOT ALREA 

2359 012370 110337 012442 MOVB R3,A8 : SAVE FOR TYPING 

2360 012374 010446 MOV  R4,-(SP) 

2361 012376 010546 MOV r§_-(SP) 

2362 012400 012702 012441 MOV #A11,R2 

2363 012404 004737 011466 JSR PC, TOU 

2364 012410 012605 MOV (SP)+_R5 

2365 012412 012604 MOV (SP)+-R4 

2366 012414 105337 012444 A?: DECB ~—- CNTO -COUNT BY ONE 

2367 012420 003341 BGT A2 “BRANCH IF MORE TO DO 

2368 012422 002402 BLT Aé “BRANCH IF DONE 


a 
' 
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CVCMAA. SRC 07=JUL=81 09:0 SEQ 0046 
2369 «012424 005204 INC R4 - INSURE LAST DIGIT IS NOT A BLANK 
2370 «012426 000736 BR A2 
2377 «012430 012605 Ab: MOV (SP) +,R5 “RESTORE RS 
| 2372 012432 012604 MOV (SP) +,R4G sRESTORE RG 
8373) «012434 =012603 MOV (SP) +,R3 “RESTORE R3 
9374 «012636 = 000207 RTS PC 
2375) «(012440 00 BYTE 0 
2376) «(012441 057 Al}: .BYTE 057 
2377 012442 000 AB: .BYTE 0 -STORAGE FOR ASCII DIGIT 

2378 012443 057 BYTE 057 s TERMINATOR FOR TYPE ROUTINE 
| 2379 «012444 000 CNTO: BYTE 0 -OCTAL DIGIT COUNTER 
2380 «012445 000 FILLO: .BYTE 0 :2ERO FILL SWITCH 
Seas 012446 000000 MODEO: WORD 0 = NUMBER OF DIGIT TO TYPE 
| 2383 : 
2384 : 
2385 012450 105777 166346 TYPEC: TSTB aTtTPSs sWAIT UNTIL THE PRINTER IS READY 
2386 012454 100375 BPL TYPEC 
| 2387 012456 116677 000002 166340 MOVB 2(SP),aTPB :LOAD CHARACTER TO BE TYPED INTO DATA RE 
2388 «4012464 122766 000015 000002 CMPB #15,2(SP) -1S CHAR CARRIAGE RETURN? 
2389 012472 001003 BNE B1 
2390 012474 105037 012514 CLRB CHARCNT -YES CLEAR CHAR COUNT 
2391 012500 000406 R TYPEX “EXIT 
2392 012502 122766 012212 000002 B1: CMPB #LF,2(SP) -IS CHAR LINE FEED? 
2393 072510 001402 BEQ TYPEX “BRANCH IF YES 
2394 012512 105227 INCB (PC) + “COUNT THE CHARS 
2395 012514 000000 CHARCNT:.WORD 0 =CHARACTER COUNT SPACE 
2396 012516 000207 TYPEX: RTS PC 
2398 ;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR I 1S 
2399 “FQUAL TO A ''=1'', SETUP FOR A SOFTWARE SWITCH REGISTER 
2400 012520 013746 000004 SWRCK: MOV QMERRVEC,-(SP)  =:SAVE ERROR VECTOR 
2401 012524 012737 012560 000004 MOV #RT1, aMERRVEC -SET UP ERROR VECTOR 
2402 012532 012737 177570 006432 MOV #DSWR,SR :SET UP FOR HARDWARE SWR 
240% 012540 012737 177570 001036 MOV #DDISP, DISPLAY ; AND A HARDWARE DISPLAY REGISTER 
2404 012546 022777 177777 173656 CMP #-1,aSR Y TO REFERENCE HARDWARE SWR 
2405 012554 001012 BNE RT3 + BRANCH IF NO TIME OUT TRAP OCCURED 
2406 “AND THE HARDWARE SWR IS NOT 
2407 012556 000403 BR RT2 “BRANCH IF NO TIME OU 
2408 012560 012716 012566 RT1: MOV #RT2, (SP) -SET UP FOR TRAP RETURN 
2409 012564 000002 RT] 
2410 012566 012737 000176 006432 R12: MOV #SWREG,SR -POINT 10 SOFTWARE SWR 
2411 012574 012737 000174 001036 MOV #DISPREG.DISPLA 
2412 012602 012637 000004 RT3: MOV (SP) +, aMERRVEC RESTORE ERROR VECTOR 
| 2413 012606 005037 001040 CLR APASS “CLEAR PASS COUN 
| 2414 012612 132737 000200 001044 BITB #200,AENVM ;TEST USER SIZE UNDER APT 
| 2415 012620 6001403 BEQ RT4 YES,USE NON-APT SWITCH 
| 2416 =012622 612737 001042 006432 MOV #ASWREG, SR NO, USE APT SWiTCH REGISTER 
2417 ~012630 000207 RTS: RTS PC 
a8 
| 2420 012632 040057 MSG1:  .ASCII :/@PRESS CARD READER ‘RESET’ AND WAIT FOR THE ‘RESET* LIGHT/: 
| 
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SEQ 0047 


MSG2: -ASCII = 3/@THEN HIT ANY KEY ON THE CONSOLE TERMINAL/; 


OQOOooooOo GTOCO 


ASCII 
ASCII 


3/@TO LIGHT/; 


MSG24: ;/aTO GO OUT/; 


MSG4: -ASCII] ;/@THE INTERRUPT LEVEL WAS /; 


1 

0 

2 

0 

7 

0 

4 

3 

0 

7 

0 

6 

0 MSG3: 
7 

7 

5 

0 

5 

0 

0 

2 MSG5: -ASCII ;/@REMOVE ALL CARDS FROM THE INPUT HOPPER/; 
4 

5 

1 

0 

7 
MSG6: 


-ASCII ;/@RESTORE CARDS IN THE INPUT HOPPER/; 


051105 


ghey MSG7: -ASCI] ;/@RAISE THE OUTPUT HOPPER STACK HEIGHT ARM/; 


050120 : 


MSG13: .ASCII ;/@DECK CARD COLUMN PATTERN READ] READ2 CODED READ/; 


MSG14: .ASCII] ;/@ALPHA /; 
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YM=7110A=AA | CMQ1 
CVCMAA.SRC =—-«O7=JUL=81 09:06 SEQ 0048 CVCM 
2430 «013351 057 041100 047111 MSG15: .ASCII ;/@BINARY/; DONE 
| 013356 051101 027531 DSWR 
2631013362 «040057 042522 042515 MSG17: .ASCII ;/@REMEDY THE ERROR CONDITION AND PRESS ANY KEY ON THE CONSOLE TERMINAL@ D.1 
| 013370 054504 052040 042510 D.2 
| 013376 042440 051122 051117 . END 
013406 041440 047117 044504 ENDC 
013412 044524 047117 040440 END2 
| 013420 042116 050040 042522 ERCM 
| 013426 051523 040440 054516 ERFL 
| 013434 045440 054505 047440 ERRV 
| 013442 020116 044124 020105 ERR6 
| 013450 047503 051516 046117 ERSE 
| 013456 020105 042524 046522 ER] 
013464 047111 046101 027500 FADJ 
2432 013472 040057 044502 020124 MSG18: .ASCII ;/@BIT 8 WAS SET/: FAIL 
013500 020070 040527 020123 FCNT 
013506 042523 027524 FIL 
| 2433 013512 040057 047503 052514 MSG19: .ASCII ;/@COLUMN READ1 READ2 CARDS ERRORS/; FLAG 
013520 047115 051040 040505 FPR] 
013526 030504 051040 040505 FTES 
013534 031104 020060 040503 GTSW 
013542 042122 020123 051105 HLT 
013550 047522 051522 057 
2434 013555 057 046500 020113 MSG20: .ASCII :/@MK SEN/; 
013562 042523 027516 
2435 013566 040057 046102 047107 MSG21: .ASCII ;/@BLANK/: 
013574 027513 
2436 013576 040057 046111 042514 MSG22: .ASCII ;/@ILLEGAL DECK SEQ. PROCEDURE/: 
013604 040507 020114 042504 
013612 045503 051440 050505 HSR 
013620 020056 051120 041517 INIT 
013626 042105 051125 027505 
2437 013634 040057 030064 041440 MSG23: .ASCII ;:/@40 COL/: INTA 
013642 046117 057 INTF 
2438 013645 057 050100 042522 MSG25: .ASCII ;/@PRESS CARD READER ‘HALT’ AND WAIT FOR THE ‘RESET’ LIGHT/: INTV 
013652 051523 041440 051101 ITCN 
013660 020104 042522 042101 1TMA 
013666 051105 023440 040510 KBCS 
013674 052114 020067 047101 K BUF 
013702 020104 040527 052111 KCRB 
013710 043040 051117 052040 KCRS 
013716 042510 023440 042522 K10 
013724 042523 023524 046040 K11 
> 9 813789 99708) 886100 040816 MSG26: .ASCII :/aP 1S 
2 re :/@PLACE PRESSURE ON CARDS IN THE INPUT HOPPER/; r 
: 013744 042503 050040 042522 K16 
013752 051523 051125 020105 K17 
013760 047117 041440 051101 K18 
013766 051504 044440 020116 K19 
013774 044124 020105 047111 K20 
014002 052520 020124 047510 K7 
nao BiaBrs 089 BIB gaol? scars ascat ie 
: OA :/aT0 INHIBIT A NORMAL FEED/: 
014022 047111 044510 044502 LAST 
014030 020124 020101 047516 LAST 
| 014036 046522 046101 043040 LAST 
| | 
| 
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CVCMAA. SRC 07-JUL-81 09:06 SEQ 0049 


014044 042505 027504 
2441 014050 040057 hate 052123 MSG30: .ASCII ;/@RESTACK CARDS IN INPUT HOPPER/; 
014056 041501 020113 040503 
| 0140664 042122 0201235 047111 
014072 044440 050116 0521<c5 
014100 044040 050117 042520 
014106 027522 
2442 EVEN 
2443 
are :DATA TABLES FOR DATA RELIABILITY TESTS 
2446 ; ALPHANUMERIC DECK DATA TABLE 
2447 :FIRST VALUE FOR A COLUMN IS THE DIRECT 
2448 :CARD IMAGE FOR THAT COLUMN ON CARD 1 
2449 >THE SECOND VALUE IS THE ENCODED FORM OF THAT DATA 
2450 COLUMN CHAR HOLLERITH 
2451 014110 004000 ALPCD: 4000 71 & 12 
2452 014112 000200 200 
2453 014114 004400 4400 2 A 12 1 
2454 014116 000201 201 
2455 014120 004200 4200 3 K 12 2 
2456 014122 000202 202 
2457 014124 004100 4100 34 C i 3 
2458 014126 000203 203 
2459 014130 004040 4040 35 D 12 4 
2460 014132 000204 204 
2461 014134 004020 4020 36 E 12 5 
24 014136 000205 205 
2463 014140 004010 4010 :7 F 12 6 
2464 014142 000206 206 
2465 014144 004004 4004 38 G iT 
2466 014146 000207 207 
2467 014150 004002 4002 39 4 12 8 
2468 014152 000210 210 
2469 014154 004001 4001 :10 I 12 9 
2470 014156 000220 220 
2471 014160 004202 4202 711 CENT 12 8 2 
2472 014162 000212 212 
2473 014164 004102 4102 712 12 8 3 
2474 014166 000213 213 
2475 014170 006042 4042 313 < 12 8 4 
2476 014172 000214 214 
2477 014174 004022 4022 214 ( 1285 
2478 014176 000215 215 
2479 014200 004012 4012 715 + 12 86 
2480 014202 000216 216 
2481 014204 004 4006 :16 1 12 87 
2482 014206 000217 217 
2483 014210 002000 2000 :17 - 11 
2484 014212 000100 100 
2485 014214 002400 2400 :18 J 11 1 
2486 014216 000101 101 
2487 014220 002200 2200 219 K 11 
2488 014222 000102 102 
2489 014224 002100 2100 320 L 11 
2490 014226 00010 103 
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CMQ11=K CARD READER TEST YM=7110A=AA 

CVCMAA.SRC —-07=JUL=81 09:06 SEQ 0050 
2491 014230 002040 2040 ;21 MM 114 
2492 014232 000104 104 
2493 014234 002020 2020 ;22 ON 115 
2494 014236 000105 105 
2495 014240 002010 2010 . . oe 11 6 
2496 014242 0001 106 
2497 014244 002 2004 eee 117 
2498 014246 000107 107 
2499 014250 002002 2002 eee 11 8 
2500 014252 000110 110 
2501 014254 002001 2001 126 oR 119 
2502 014256 000120 120 
2503 014260 002202 2202 :27 1182 
2504 014262 000112 112 
2505 014264 002102 2102 ms 1183 
2506 014266 000113 113° 
2507 014270 002042 2042 :29 1184 
2508 014272 000114 114 
2509 014274 002022 2022 eae 1185 
2510 014276 000115 115 
2511 014300 002012 2012 331 118 6 
2512 014302 000116 116 
2513 014304 002006 2006 :32 BLANK +1187 
2514 014306 000117 117 
2515 014310 001 ALPCD2: 1000 333.0 0 
2516 014312 000040 40 
2517 014314 001400 1400 See 01 
2518 014316 000041 41 
2519 014320 001200 1200 oe 0 2 
2520 014322 000042 42 
2521 014324 001100 1100 1 0 3 
2522 014326 43 43 
2523 014330 001040 1040 , a 0 4 
2524 014332 000044 44 
2525 014334 001020 1020 :38 05 
2526 014336 4 45 
2527 014340 001010 1010 a 0 6 
2528 014342 000046 46 
2529 014344 001004 1004 40 =X 07 
2530 014346 7 47 
2531 014350 001002 1002 341 ‘ 08 
2532 014352 50 50 
2533 014354 001001 1001 20? 09 
2534 014356 0 60 
2535 014360 001202 1202 343 082 
2536 014362 52 52 
2537 014364 001102 1102 344 083 
2538 014366 53 53 
2539 014370 001042 1042 “a 084 
2540 014372 54 54 
2541 014374 001022 1022 46 =O 085 
2542 014376 000055 55 
2543 014400 001012 1012 y* Soe 086 
2544 014402 56 56 
2545 014404 001006 1006 48? 087 
2546 014406 57 57 
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CMQ11=K CARD READER TEST YM=2110A=AA 
CVCMAALSRE —-07=JUL=81 09:06 SEQ 0051 
410 000000 0000 349 BLANK 
412 000000 
414 090400 0400 50 1 1 
416 000001 
4420 000200 0200 H - 2 2 
422 000002 
424 000100 0100 af. 3 3 
426 000003 
430 000040 0040 , 
432 000004 4 
434 000020 0020 m4 5 
436 000005 
440 000010 0010 ae é 
4442 000006 
4444 000004 0004 6229 7 
4446 000007 r 
4450 000002 0002 :57 8B : 
4452 000010 10 
4454 000001 0001 58 869 9 
014456 000020 20 
014460 000202 0202 :59 8 2 
014462 000012 12 
014464 000102 0102 :60 ff 8 3 
4466 000013 13 
014470 000042 0042 a B 4 
014472 000014 14 
014474 000022 0022 ees 8 5 
014476 000015 15 
014500 000012 0012 363 = 8 6 
014502 000016 16 
14504 000006 0006 ee 8 7 
4506 000017 17 
510 004000 4000 365 & 12 
512 000200 200 
514 004400 4400 566 OA 12 1 
014516 000201 201 
014520 004200 4200 :67 «iB 12 2 
014522 000202 202 
014524 004100 4100 168 = 12 3 
014526 00020 203 
014530 004040 4040 69 oD 12 4 
014532 0002 204 
4534 004020 4020 :70—s€E 12 5 
536 000205 205 
014540 004010 4010 +; er 12 6 
014542 000206 206 
014544 004 4004 7 127 
14546 000207 207 
4550 004002 4002 ms 8 12 8 
4552 000210 210 
4554 004001 4001 mo 12 9 
4556 000220 220 
4560 004202 4202 :75 CENT 1282 
4562 000212 212 
4564 004102 4102 ;76 12 8 3 
566 000213 213 
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CVCMAA. SRC 07-JUL=81 09:06 SEQ 0052 


2603 2 :77 < 12 8 4 

2604 

2605 2 ;78 ( 12 8 5 

2606 

2607 2 379 + 12 8 6 
6 ;80 1 12 8 7 
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CMQ11=K CARD READER TEST YM-7110A=AA MACY11 30A(1052) 09:08 PAGE 15-38 | 
CVCMAA. SRC 07-JUL=81 09:06 SEQ 0053 

2659 014744 003572 3572 324 
2660 014746 000157 157 

2661 014750 006451 $33" 725 
so06 014752 000327 7 

$06 014754 005125 5125 ;26 
664 014756 000267 26 

2665 014760 003574 3574 ;27 
2666 014762 000147 147 

2667 014764 006451 6451 ;28 
2668 014766 000327 327 

2669 014770 005225 5225 729 
2670 014772 000267 267 

2671 014774 003674 3674 ; 30 
2672 014776 000147 147 

2673 015000 002451 2451 ;31 
2674 015002 000127 127 

2675 015004 001225 1225 ; 32 
2676 015006 7 67 

2677 015010 003676 BINCD2: 3676 333 
2678 015012 000157 157 

2679 015014 002452 2452 ; 34 
2680 015016 117 117 

2681 015020 001224 1224 332 
2682 015022 47 47 

2683 015024 003736 3736 ; 36 
2684 015026 157 157 

2685 015030 2512 2512 $f 
2686 015032 117 117 

2687 015034 005224 5224 ; 38 
2688 015036 24 ese 

2689 015040 005736 736 ;39 
2690 015042 000257 257 

2691 015044 000512 0512 340 
2692 015046 00001 17 

269% 015050 005225 5225 41 
2694 015052 pone? 267 

2695 015054 005737 5737 342 
2696 015056 000277 277 

2697 015069 000552 0552 343 
2698 015062 000017 17 

2699 015064 005245 5245 744 
2700 015066 000267 e6/ 

2701 015070 005717 5717 745 
2702 015072 000277 44 

2703 015074 002552 552 346 
2704 015076 000117 117 

2705 015100 006245 6245 347 
2706 015102 000327 467 

2707 015104 004717 4717 348 
2708 015106 000237 237 

2709 015110 002552 2552 349 
2710 015112 000117 117 

2711 015114 006245 $¢6° ;50 
sole 015116 000327 7 

2713 015120 004727 6 7 ;51 
2714 015122 000237 23 
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002562 
000117 
006245 
000327 
005327 
000277 
003162 
000157 
006245 
000327 
005327 
000277 
003172 
000157 
006251 
000326 


005323 


S 
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277 
003572 
000157 
006451 
000327 
0051235 
000277 
003572 
000157 
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| CMQ11=K CARD READER TEST YM-7110A=AA MACY11 30A(1052) 04=AUG=81 09:08 PAGE 15-40 


CVCMAA. SRC 07-JUL=81 09:06 SEQ 0055 
2771 015304 000512 0512 ; 80 
e772 015306 00001 BINEND: 17 
2774 
277s ;MARK SENSE CARD TABLE 
2777 015310 005252 MRKCD: 52520 1 
2778 015312 000256 256 
2779 015314 002525 2525 2 
2780 015316 000127 127 
2781 015320 007777 777733 
2782 015322 000377 377 
2783 015324 004000 4000 4 
2784 015326 000200 200 
2785 015330 002000 2000 =; 
2786 015332 000100 100 
2787 015334 001000 1000 36 
2788 015336 000040 40 
2789 015340 000400 400 ;7 
2790 015342 000001 
2791 015344 000200 2008 
2792 015346 000002 2 
2793 015350 000100 100s 
279% 015352 000003 3 
2795 015354 000040 40 :10 
2796 015356 000004 4 
2797 015360 000020 20 11 
2798 015362 000005 5 
2799 015364 000010 10 312 
2800 015366 000006 $ 
2801 015370 000004 4 :13 
2802 015372 000007 7 
2803 015374 000002 2 :14 
2804 015376 000010 1¢ 
2805 015400 000001 :15 
2806 015402 000020 20 
2807 015404 000002 é 16 
2808 015406 000010 10 
2809 015410 000004 4 :17 
2810 015412 000007 7 
2811 015414 000010 10 :18 
2812 015416 000006 6 
2813 015420 000020 20 :19 
2814 015422 000005 5 
2815 015424 000040 40 ;20 
2816 015426 000004 4 
2817 015430 000100 100 ;21 
2818 015432 000003 3 
2819 015434 000200 200522 
2820 015436 000002 2 
2821 015440 000400 400 523 
2822 015442 000001 
2823 015444 001000 1000 324 
2824 015446 000040 40 
2825 015450 002000 2000 = ;25 

| 2826 015452 000100 100 
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CVCMAA.SRC = 07=JUL 81 09:06 SEQ 0056 
| 2827 015454 004000 4000 =; 26 
2828 =015456 000200 200 
| 2829 015460 004000 4000 =; 27 
2830 015462 000200 200 
2831 015464 004000 4000 = :28 
2832 015466 000200 200 
2838 015470 004000 4000 =; 29 
2834 015472 000200 200 
2835 015474 002000 2000 = ; 30 
2836 015476 000100 100 
2837 015500 002000 2000; 31 
2838 015502 000100 100 
2839 015504 002000 2000 = 32 
2840 915506 000100 100 
2841 015510 0602000 2000 =; 33 
2842 015512 000100 100 
2843 015514 001000 1000; 34 
284% 015516 000040 0 
2845 015520 001000 1000 = ; 35 
2846 015522 000040 
2847 015524 001000 1000 =; 36 
2848 015526 000040 
2849 015530 001000 1000 = ;37 
2850 015532 000040 
2851 015534 000400 400 = ; 38 
2852 015536 000001 
2853 015540 000400 400 ~=—_ 39 
2854 015542 000001 
2855 015544 000400 400 = ;40 
2856 015546 000001 MKNDGO: 1 
2857 015550 000400 400 41 
2858 015552 000001 
2859 015554 000200 200 42 
2860 015556 000002 2 
2861 015560 000200 200; 43 
2862 015562 000002 2 
2863 015564 000200 200; 46 
2864 015566 000002 2 
2865 015570 000200 200 45 
2866 015572 000002 2 
2867 015574 000100 100 ;46 
2868 015576 000003 3 
2869 015600 000100 100s ;47 
2870 015602 000003 3 
2871 015604 000100 100 ;48 
2872 015606 000003 3 
2873 015610 000100 100 349 
2874 015612 000003 3 
2875 015614 000040 40 :50 
2876 015616 000004 ‘ 
| 2877 015620 0 40 351 
2878 015622 000004 4 
2879 015624 00004 40 :52 
2880 015626 000004 4 
2881 015630 00004 40 :53 
2882 015632 000004 4 


- 





—_— — + - —— 


ee eee 


2883 015634 
2884 015636 
2885 015640 
2886 015642 
2887 015644 
2888 015646 
2889 015650 
2890 015652 
2891 015654 
2892 015656 
2893 015660 
2894 015662 
2895 015664 
2896 015666 
2897 015670 
2898 015672 
2899 015674 
2900 015676 
2901 015700 
2902 015702 
2903 015704 
2904 015706 
2905 015710 
2906 015712 
2907 015714 
2908 015716 
2909 015720 
2910 015722 
2911 015724 
2912 015726 
2913 015730 
2914 015732 
2915 015734 
2916 015736 
2917 015740 
2918 015742 
2919 015744 
2920 015746 
2921 015750 
2922 015752 
2925 015754 
2924 015756 
2925 015760 
2926 015762 
2927 015764 
2928 015766 
2929 015770 
2930 01577 
2931 015774 
2932 015776 
29335 016000 
2934 016002 
2935 016004 
2936 016006 
2937 


CMQ11=K CARD READER TEST 
07=JUL-81 09:06 


YM-72110A=AA 


oe oOo oOo Oo Oo @&@ @&@ © 


oO 


oe oOo Oo Go © 


ee eee —M--N __— he a ae. NE NE NIE OA PO OA A HO PS UP PU YIP YT 


oN™N 
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MRKEND: 220 


MACY11 30A‘1052) 


354 
355 
;56 
> Tf 


;END MARK SENSE TABLE 


;PRINT DECIMAL VALUE IN R2 
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07=JUL-81 09:06 


| CVCMAA, SRC 

| 2939 016010 

| 29460 016016 

— 2941016024 
sock 016032 
2943 016040 

| «692944 016044 
2945 016050 
2946 016052 
2947 016056 
2948 016062 
2949 016066 
2950 016070 

| 2951 016072 
2952 016100 
2953 016102 
2954 016106 
2955 016110 
2956 016116 
2957 016120 
2958 016126 
2959 016130 
2960 016136 
2961 016144 
2962 016150 
2963 016152 
2964 016160 
2965 016162 
2966 016164 
2967 016166 
2968 016170 
2969 016172 
2970 016174 
2971 016176 
2972 0162 
2972 016202 
2974 
2975 


we we ea ew. 


Ray ow — 
Swin 
~~ 


000001 


177773 


000002 
016162 
177777 
016166 
000060 
000060 
162652 


016162 


YM=7110A=AA 


016170 


016164 
016162 
016166 
016162 


162644 


DECPR: 


TYPT1: 
TYPT2: 


TYPT3: 


DECOUT: 


MACY11 30A(1052) 


#-5 ,DIGCNT 
ADECPNT+2,DECPNT 
#40,ZERO 

#-) DIGIT 


DIGIT 
Q@DECPNT ,%2 
TYPT 


ZERO,DIGIT 
DEC2 
#60,ZERO 
#60,DIGIT 
aTCSR 


<4 
DIGIT, a@TDBR 
27 
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09:08 PAGE 15-43 


SEG 0058 
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CVCMAA.SRC = 07=JUL=81 09:06 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0059 
| AENVE = 007044 622" 2414 
/ALCNT 006512 1647-1654 

ALLDON 006446 1443 14660 «= 1487, s«1570 1644 =1730——s«'1733 

ALLOK 006630 1679 =: 1682 

ALPCD. 014110 1344 1351 1352 24514 

ALPCD2 014310 1348 1349 25154 

ALPEND 014606 1345 26108 

ALP? 004552 1330 = 13424 

ALWAIT 006666 1681 16924 1744 

APASS 001040 620# 2413s 

ASWREG 001042 6214 2416 

AUTOB 001046 6234 ©2235 

aj 012320 23438 

at) 012441 2362 ©. 2376 

A2 012324 2345# 2367 2370 

a3 012334 2344 23498 

ad 012356 2353 «= 2356 

AS 012364 2355 9.23584 

AG 012430 2368 489. 23718 

a7 012414 2351 =. 23664 

AB 012442 2359" 23778 

BEGIN 001242 5876634 =—:1319 

BELL 010726 1290 1573 1645 1703 1735 1902 1961 20534 

BINCD 014610 1331 1338)=— «1339 = 26134 

BINCD2 015010 1335. 1336 = 2677# 

BINEND 015306 1332-2772 

B.CK 011222 2107 21214 

Bi 012502 2389 23924 

CARDIM 010622 1940* 1941 1979 1981 20168 

CDCNT 006420 1300* 1320 13246 1408 1441 1458 1485 1503 1544 1608 1631" 1722 

CHARCN 012514 2390* 23954 

CKBIT8 011022 689 724 755 1271 1282 1661 1488 1725 2038  2075# 2085 

CKCOL 010 1951 19698 

CKCRD 010350 1953 1965 

CKDONE 010606 2008 2011# 2012 

CKFAIL 010442 1980 1982 1984 

CKHLT 010574 1986 20078 

CKLOOP 010264 19454 1959 1964 1966 1968 1974 2010 2013 

CKLP1 010304 1950# 1955 1983 

CKLP2 010410 1976" 1977 

FKNOHD 010500 1988 19928 

CKSAME 010222 597 1937# 

CKSIT 010334 1947 1957-19618 

CKSIT1 010340 19624 1963 

CKSWR 011626 1299 1310 145016031613 1644 174819101938 207520842104 2166 

CkK4 001750 787 Ss 792 794H 

CKS = 002114 828 8 8=—s_- BAIA 

(Ko 002736 1019 1022 

CLCNT 22 1385* 1417 1469 1506 1531 1609" 1632 1731 1945* 1965  1970* 1993 

CLRTR 010722 690 725 961 1006  2049# 

CNTCRD= 004460 13284 1483* 1536" 1537 1555 

CNTER 04 1013* 1016* 16254 1664*  1665* 

CNTER1 006406 16264 1663* 16708 

CNTLG 012157 2237 = 22918 

CNTLU 012152 2253 = 2290 


a ee ——— 
f ee j 
ry 
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012444 


011544 


011340 
011304 
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RS 
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2332*  2366* 
1199 12024 
1206 12094 
1213 12164 
1220 12234 
1227 12304 
1234 12374 
1242 12464 
1262 12654 
1270 12734 
656* 659* 
655* 660* 
1965 
1341 1343 
1051 10634 
1984 1090 
743 7478 
1156 11604 
1183 11864 
797 8014 
9864 995 
6174 984 
664 671 
1793 1794 
1849 1850 
2265 
2148 21524 
21458 2146 
1394* 1406 
719 12994 
1289 13104 
1306 1309 
1323 13264 
13294 
1386* 1400 
1398* 1403 
966 9844 
1355 13624 
619 6274 
666* 673* 
1304* 1308 
1576 15824 
2947 29534 
2940* 2944 
1504 1507 
2954 2956 
2958 29614 
1441 1458 
589 20204 
2939% 2948 
2942% 2943 
6194  2403* 
5834 2411 
2022* 2024 
025*  2026* 
763 7704 


YM=7110A=AA 


23798 


-- 


679* 
678* 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


833 
911 


Be. 
04-AUG-81 


847 
1069 


1979 
1981 


16244 


16334 


2965 


1996 
1999 


1722 


29654 


1593* 
1469 


09:08 PAGE 16-1 


1586* 


1592s 


1634# 


SEQ 0060 


1731 


1792 
1848 
22034 
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2274 22844 


* 
—) 
* 


kk ek ek ek ak a ot 
— — = NNN NUN 
D S 
Ww 
Nm 


94 =1560* 1562* 1564* 1566* 
1457 1484 1535 1539 15444 1620 1622 


> 

> > 

WV 

4—~ 

cS 

Oo 
See 
oO 

~~ 

Oo & 


225 
227 
7 
224 
225 
2247H 2248 «2283 
225 
155 
157 
139 
155 


LASTCK 06 
LASTWT 006034 


| 
| CVCMAALSROE. =: 07= JUL =81 09:06 CROSS REFERENCE TABLE <= USER SYMBOL SEQ 0061 
DONE? 002410 919 927 930" 
DSWR = 177570 618 6264 2402 
D. 011436 2168 21748 
D. 011446 2170 2172 21778 
END 011004 2057 20684 
ENDCK 004240 1272 1274 1281 12864 
004220 1264 12784 1279 
ERCM11 007142 591 17478 
ERFLG 001060 6328 1326* 1495 1497x 1944% 1987 1989* 
ERRVEC= 000004 6254 2400 2401* 2412* 
ERR6 002306 877 8974 
ERSET 005314 1381 14504 
FR] 005352 14584 
FADJ 005200 1419 14204 1489 1549 
FAIL 005400 1401 1407 14664 
FCNT 005504 1480 14854 
FILiID 012445 2326* 2330* 2340 23804 
FLAG 10 1371* 1314 1333 1346 1587* 16274 
FPRINT 005536 1475 14954 
FTEST 005460 14794 1482 
GTSWR 011702 665 672 1578 1651 22394 
HLT = 106000 5504 704 710 716 729 744 750 760 768 772 796 800 803 
806 809 812 816 831 839 843 849 853 857 861 82 890 
895 899 901 916 928 932 937 942 947 955 969 974 982 
988 992 1020 1026 1028 1050 1054 1058 1061 1983 1089 1109 1132 
1157 1185 1200 1207 1214 1221 1228 1235 1243 1251 1263 1273 1277 
1392 1454 1533 1543 1557 1619 1621 1662 1672 1680 1689 1701 1707 
1710 1713 1717 1724 1734 1768 1771 1799 1802 1805 1834 1837 1840 
1879 1885 1958 1967 1973 2045 
HSR = 177570 5484 
INIT 010674 780 B22 866 909 960 1005 1036 1068 1099 1117 1142 1165 1193 
7256 1362 1754 1787 1822 1856 20384 
INTAG 001050 6244 2266 
INTFLG 001012 6054 641* 
INTVC 1014 6064 640 
ITCNT 011462 1915* 1919* 2171 2173* 2177* 21814 
ITMAX 011460 637* 1753* 1916* 2070* 2171 21804 
KBCSR 001016 6074 2217 
KBUF 1020 6094 2219 
KCRB1 030 6164 639 
KCRS 026 6154 638 
K10 2252 22574 
K1i 022 2260 22624 
026 22654 
K15 050 2228 2230 2234 2236 2267 22694 
| 
Pa a 
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CVCMAA. SRC 07-JUL=81 09:06 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0062 
012212 22978 2392 
010774 20644 
003170 10754 1093 
001646 759 7624 6 
001716 7834 785 790 
001734 7898 793 
002046 8254 834 840 
002204 8694 873 
002336 9128 913 923 
002522 9634 981 
011542 2187* 2189 22004 
011500 21884 2195 
011502 2189 2199 
015546 1307 28564 
012173 2245 22948 
012446 2327* 2331* 2336 23359* 2350* 23814 
015310 1301 1303 2777k 
016006 1302 29364 : 
012632 1772 1808 1841 1889 24204 
013252 1498 24284 
013340 1353 24298K 
013351 1340 24304 
013362 2081 24314 
013472 2079 24328 
013512 1990 24334 
012725 1759 1776 1790 1812 1825 1845 1894 24214 
013555 1304 24544 
013566 24358 
013576 1316 24364 
013634 1308 2437h 
013013 1774 1810 1843 1892 24258 
013645 1755 24384 
013737 1857 24398 
014015 1859 24404 
013000 1757 2422n 
014050 1887 24414 
013027 24248 
013062 1788 24254 
013133 1806 24264 
013177 1825 24278 
012164 2239 2292h 
005560 1496 15004 
000240 5494 
006336 1530 16134 
006374 1618 16214 
005716 1384 15284 
095762 15384 1555 
00630 1379 1444 1462 1491 16014 1726 1870 
007014 1378 1548 17224 
007 1723 17284 
00711 1737 17404 
002274 879 886 8934 
001062 6334 
011122 574 21044 
011246 653* 654* 1038* 1039 1040" 1042" 1043 1044* 1071* 1072* 1073* 1075* 1676* 
1077* 1101* 11028 1103* 1119" 11208 1121# 1126 11278 11288 1144 1145* 1146% 
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CVCMAA. SRC 07-JUL=81 09:06 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0063 
1148% 1149% 1167% 1168% 1169% 11718 11728 1173 1179% 1180* 1366*  1367* 15368* 
| 1389 1390* 1391% 1451" 1452% 14535% 1466* 1467% 1468* 1540* 1541* 1542% 1550* 
1551® 1552% 1674* 1615* 1616* 1673* 1674* 1675* 1683* 1684* 1695* 1696*  1697* 
1740* 1741% 1742* 21308 
PROC 001056 6304 698 739 996 1029 
PROCT 011250 1512 1515 1518 1521 1524 1997 2000 2003 2006 2114 2119 21324 
ET 001370 682 684 6854 
PSSET1 004674 1357 1359 13614 
F 006442 1399* 1402* 1405* 1509 16404 
S 012206 2284 22964 
RESETB 007440 18064 
RESTRT 001264 6684 1293 1586 
REST8 002642 989 993 9964 
REST9 002760 1027 1023 1027 10294 
RETRNX 010220 1912* 19135* 1918 1920 19214 
RETURN 011464 687* 1749% 1904* 1917* 2176 2178* 21824 
RSETC 007624 18414 
RSETD 010026 18874 
RTT =0 5524 647 
RT1 012560 2401 24084 
RT2 012566 2407 2408 24104 
RT3 012602 2405 2412h 
RT4 012630 2415 24178 
SAVPC) 3 011242 2108* 2113 21284 
SAVPSR 011244 2109* 2118 21294 
SAVR2 011234 2112* 2120 21254 
SAVR3S 011236 21268 2132* 2149 
SAVR4 011240 21274 = 2133* 2150 
SCONT? 005040 1388 13944 
SCOPE = 104400 5514 688 721 752 774 819 863 903 958 1001 1034 1066 1097 
1116 1140 1163 1190 1253 1286 1752 1786 1821 1855 1901 
SCOPEC 011376 576 21664 
SETUP 001064 637# 663 1747 1909 1937 2020 
SPACE 011070 1502 1505 1508 1513 1516 1519 1522 1995 1998 2001 2004 20914 2095 
SPACEY 011120 2094* 2096* 20984 
S 32 657 676 683 717 1288 1305 1329 1342 358 1410 1412 1420 1422 
1473 1476 1534 1574 1583 1590 1596 16364 1646 1648 1728 1736 1912 
gy 1985 2007 2022 2105 2121 2167 2169 2227 2261* 2402+ 2404 2410* 
* 
SRVC 004746 1365 13764 
SRVC1 006664 1682 16914 
SRVC2 006736 1693 17034 
SRVC2ZA 006744 1702 17054 
STACK 001000 586 588 590 593 596 6034 1292 1585 
SWR 001034 6184 
SWRCK 012520 652 24004 
SWREG 000176 5844 27 2241 2410 
SWTHR = 004436 13224 81325" 1553 
TABPT 006444 1336* 13539% 1349* 1352% 1434* 1435 1437* 1440 16414 
TAGA 005222 1421 14254 1428 
TAGB 005230 1418 14274 
TAGC 005232 1424 14284 
TAGD 0052 1423 14344 
TAGE 005266 1436 14404 
TAGF 005306 1442 14444 
TAGZ 005272 1426 14414 
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CMQ11=K CARD READER TEST } 1 
CROSS REFERENCE TABLE == USER SYMBOL 


rene PAGE 16=5 


CVCMAA.SRC —-07=JUL=81 09:06 SEQ 0064 

TCSR 001022 sbil# 2053 20582061 2068 «= 2097S 2115) 2143) = 2186 2196 += 2203S 2206 =~ 2209 

TDBR 001024 613# 2055* 2060" 2093* 2117% 2145% 2198 2205" 2208 22118 2963s 

TEND 16 1302e 1307" 1332% 1345* 1416 1635 16304 

TEST 001372 667 669s BH 

TESTA 0071760 1749 1752# 1904 1905 

TESTB 007340 1786# 

TESTC 007524 18214 

TESTD 007700 18554 

TESTG 010112 19014 

TESTX 010134 594  1909# 

TESTI 1400 6884 2182 

TESTIA 001402 687 6894 

TESTO 002772 1030 1034# 

TEST11 003130 10664 

TEST12 003262 10974 

TEST2 0017514 711 718 = 7214 

TEST20 003350 11164 

TEST21 00347 11404 

TEST22 003574 11634 

TEST23 003722 1190# 

TEST24 004126 1201 1208 1215 1222 1229 1236 1244 1250 12534 

TESTS 001622 745 7528 

TEST4 001704 761 MT one oom 7748 

TESTS 002034 8198 

TEST6 002170 832 B46 ti(‘i«é‘«i A 

TEST? 002322 889 892 894 89% 900 9034 

TEST8 § 0025 917 929 933 943 968 952 958 

TESTS 002654 970 975 983 997 10018 

TIM24 004212 1266 =: 12754 

TINT10 0030 1037-10524 

TINT11 003230 1070 10854 

TINT12 003332 1100 11094 

TINT20 003444 1118 = 11328 

TKB —- 001020 610# 2231 2249 

TKS 001016 6084 2229 2247 2268% 

TNINT 003556 1143-11578 

TOTCRD 010620 1942* 1949* 2002 2015# 

TOTERR 010616 1943* 1984e 2005  2014# 

TOUT 011466 1317, 1499 Ss 1501.-Ss«11756)=Ss«41758)=S—«1760=Ss«*1773')—~=*«<*77S+~=S=«*dN7?77~—~—=é«‘?B=—=s«*dM791”=~=~*«*1BOT~—«*1809 
1811 1813 1824 1826 1842 18464 1846 1858 1860 1888 1890 1893 1895 
1991 2080 2082 2186 2238 2240 2244 2254 2285 2363 

TPB —ss«00 1024 6144 2387s 

TPS = 001022 6124 2385 

TRET 001144 643  649# 

TRFLG 001054 6294 642% 681 1291* 1356 1582 

TRTRAP 001052 571 6284 647% 649% 

TSTART 006414 1301* 1331" 1344* 1416 1425 1437 1438 16298 

TSTIB 001442 699 701" 

TSTIC 001500 715 7178 

TST2A 001574 740 742 

TTSTAL 011632 1765 1782 1796 1818 1831 1851 1900 2083 2216# 2218 

TTYN 012136 2287# 

TYPEC 012450 2270 2385 2386 

TYPEX 012516 2391 2393 2396" 

TYPOC 012240 2242 23308 
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CVCMAA.SRC —-07=JUL=81 09: CROSS REFERENCE TABLE == USER SYMBOL SEQ 0065 

TYPON 012254 2329-2332" 

TYPOS 012214 23254 

TYPT] 016032 29428 2952 

TYPT2 016040 394 5945 

TYPTS 016072 5949-39518 

2INT 003656 1166 «11778 

TOINTA 003704 1178 11844 

IT9 002724 10188 

XLOOP 010210 1917. 19198 

ZERO 016 166 2941" 2957 2959% 296/# 

: = 016206 568 S70" 573% ~~ 580H  S92# 6024 60464 668 693 695 97 703 709 
: eee 731 736 73 749 795 799 802 805 807 808 ~~ «811 
71s. oe 086 Os O82 868 6852 856 860 @86870~©6 878 881 884 
898 430.915. ié«éi27 925 93] 936 939 941 946 950 954 964 968 
973 979 #4987 991 1009 1015 1625 1047 11053 1057 1060 1080 1088 
1107, 1108)~—S—i«<29250—=~=*=<~SNT'T:S—“(<«é‘zzO9S3)O1976S—C«*2996S—«*:20B.—<‘(Q700Ss«*d:277S:t:—«*2‘22GSst«*iC}3Y 
1238 1267. «-1259.~=Sté's«*1276~—Sté«<‘ 322~2's—«*d2BDB:COté«éAR373~C*«‘W377~=~=«*3B3~~*«‘(US897©©~=«1456020=«1459~Ss«147%4 
1677. 1686~=—S—s«1532,—~S'«—«22538~=Stsi«‘aS4?~=Ss«15S9~Ss«é15672='i‘«*2S63~=Ss«éd1565~—=—(‘z(S67)~OC1569~=—s«1575:1655 
1661 1690 1699 1706 1709 «+1712 «©1716 +~ «+1732 «1767 ~«2©21770+~=S«1798-~—S—=«+1801~Ss«*1:80 
1833 «-1836.~=Ss«1839~=Ss«‘1972~S*s«2040~Ss«204G~Ss«i2054)Stsi«‘( 059~Ss«i«2062~S—«i2069~S—«2077~Sts«092-~SSté« 0 
3116 =—«2122S—«213BSs«i 5GSti«O9Ss«é«‘“_GSStC«C8TG~=—s«d5204 «= 5207 ~=— 3210S 3287" «©3962 = «3968 


- ABS. 016204 009 


ERRORS DETECTED: 0 
CVCMAA, as LST/CRF=CVCMAA. SRC 
24 2 SECONDS 


CORE USED: 8k (15 PAGES) 


